有数据表Y,经程序运行后生成Y2，统计出BH在各个BM的数据（VFP6.0)
求老师赐教，谢谢

SELECT bm,COUNT(*) 合计 FROM y INTO dbf y2 GROUP  BY bm WHERE !EMPTY(bh)
SELECT DISTINCT bh FROM y INTO CURSOR tmp WHERE !EMPTY(bh)
SCAN
    czd=ALLTRIM(bh)
    ALTER table y2 ADD &czd. n(3)
ENDSCAN
SELECT y2
SCAN
    cbm=ALLTRIM(bm)
    SELECT bh,COUNT(*) sj FROM y INTO CURSOR tmp GROUP BY bh WHERE ALLTRIM(bm)==cbm AND !EMPTY(bh)
    SCAN
        czd=ALLTRIM(bh)
        REPLACE &czd WITH tmp.sj IN y2
    ENDSCAN
   
ENDSCAN

CLOSE DATABASES
SET SAFETY OFF
USE y2 IN 0
BLANK FIELDS 合计, C1, C2, D1, D2, F1, N1
INDEX ON bm tag bm
USE y IN 0 ALIAS y1
SELECT y1
SET RELATION TO bm INTO y2
SCAN
    IF NOT EMPTY(bh)
        REPLACE (y1.bh) WITH EVALUATE(y1.bh) + 1 IN y2
    ENDIF
ENDSCAN
SET RELATION TO
SELECT y2
SET ORDER TO
REPLACE 合计 WITH C1 + C2 + D1 + D2 + F1 + N1 ALL
BROWSE

[此贴子已经被作者于2021-5-22 14:16编辑过]

楼主两年多没来论坛了

感恩，谢谢！
表中BH的内容是不确定的。（也有空的）

只针对楼主的问题给出解决方案