点击"计算"命令完成对期末人数计算，并将计算结果填入为零的单元格的任务.用VFP6.0 谢谢各位高手.
达到目的：合计=1公司办公室+各部门……之和，销售部=销售部1+销售部2+销售部3…… 之和。




[ 本帖最后由 tjdeming 于 2013-7-25 19:16 编辑 ]

SELECT xm,dm,coun(期末人数) 期末人数 FROM book1 WHERE 期末人数=0 GROUP BY dm INTO CURSOR a1
thisform.grid1.RecordSource="a1"
thisform.refresh

我没有表达清楚，重新写了一下。

SELECT XM FROM BOOK1 WHERE RECNO()>1 AND [.]$XM INTO CURSOR T
SCAN
   SELECT XM,SUM(期末人数) QMRS FROM BOOK1 WHERE NOT [.]$XM AND ALLTRIM(SUBSTRC(T.XM,AT([.],T.XM)+1))$ALLTRIM(BOOK1.XM) INTO CURSOR T1
   IF _TALLY!=0
      UPDATE BOOK1 SET 期末人数=T1.QMRS WHERE BOOK1.XM==T.XM
   ENDIF
   USE IN T1
   IF RECNO([T])=RECCOUNT([T])
      SELECT XM,SUM(期末人数) QMRS FROM BOOK1 WHERE RECNO()>1 AND [.]$XM INTO CURSOR T1
      UPDATE BOOK1 SET 期末人数=T1.QMRS WHERE RECNO()=1
      USE IN T1
   ENDIF
ENDSCAN
USE IN T

这段代码只是针对这个问题而写的。关键之处在于条件的设定。


[ 本帖最后由 sdta 于 2013-7-26 23:34 编辑 ]

谢谢!能成功.通用性欠强.我附了字段DM,本想通过DM来解决.

对类似问题，这段代码还是有通用性的。