计算字段的某一行的值
点击"计算"命令完成对期末人数计算,并将计算结果填入为零的单元格的任务.用VFP6.0 谢谢各位高手.达到目的:合计=1公司办公室+各部门……之和,销售部=销售部1+销售部2+销售部3…… 之和。
计算.rar
(2.44 KB)
[ 本帖最后由 tjdeming 于 2013-7-25 19:16 编辑 ]
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这段代码只是针对这个问题而写的。关键之处在于条件的设定。