不会写一句就解决问题,写了好多句。
CREATE CURSOR 统计表 (编码 C(12),名称 C(50),本月发出 Y,本月开票 Y,本月回款 Y,累计发出 Y,累计开票 Y,累计回款 Y)
APPEND FROM khbm
INDEX on 编码 TAG 编码
USE fcsp ALIAS fcsp IN 0
SELECT fcsp
SET RELATION TO khbm INTO 统计表
LOCATE FOR !FOUND("统计表")
IF FOUND()
BROWSE FOR !FOUND("统计表") TITLE "fcsp表这些记录的khbm在khbm表没有编码记录,这些数据将被忽略。"
ENDIF
REPLACE 统计表.本月发出 WITH 统计表.本月发出 + IIF(!ISNULL(fcsp.金额) AND YEAR(fcsp.日期)==2016 AND MONTH(fcsp.日期)==11,fcsp.金额,0),;
统计表.累计发出 WITH 统计表.累计发出 + IIF(!ISNULL(fcsp.金额),fcsp.金额,0) ALL
SET RELATION TO
USE IN fcsp
USE kpxx ALIAS kpxx IN 0
SELECT kpxx
SET RELATION TO khbm INTO 统计表
LOCATE FOR !FOUND("统计表")
IF FOUND()
BROWSE FOR !FOUND("统计表") TITLE "kpxx表这些记录的khbm在khbm表没有编码记录,这些数据将被忽略。"
ENDIF
REPLACE 统计表.本月开票 WITH 统计表.本月开票 + IIF(!ISNULL(kpxx.金额) AND YEAR(kpxx.开票日期)==2016 AND MONTH(kpxx.开票日期)==11,kpxx.金额,0),;
统计表.累计开票 WITH 统计表.累计开票 + IIF(!ISNULL(kpxx.金额),kpxx.金额,0) ALL
SET RELATION TO
USE IN kpxx
USE hkxx ALIAS hkxx IN 0
SELECT hkxx
SET RELATION TO khbm INTO 统计表
LOCATE FOR !FOUND("统计表")
IF FOUND()
BROWSE FOR !FOUND("统计表") TITLE "hkxx表这些记录的khbm在khbm表没有编码记录,这些数据将被忽略。"
ENDIF
REPLACE 统计表.本月回款 WITH 统计表.本月回款 + IIF(!ISNULL(hkxx.回款金额) AND YEAR(hkxx.日期)==2016 AND MONTH(hkxx.日期)==11,hkxx.回款金额,0),;
统计表.累计回款 WITH 统计表.累计回款 + IIF(!ISNULL(hkxx.回款金额),hkxx.回款金额,0) ALL
SET RELATION TO
USE IN hkxx
SELECT 统计表
GO TOP
BROWSE
CLOSE DATABASES ALL