编程论坛 → VFP论坛

统计个数

tjdeming 发布于 2021-05-22 11:46， 2370 次点击

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

只有本站会员才能查看附件，请登录

5 回复

xuminxz2021-05-22 13:14

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

sdta2021-05-22 14:00

程序代码：

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编辑过]

sdta2021-05-22 14:02

楼主两年多没来论坛了

tjdeming2021-05-22 14:19

回复 4楼 sdta

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

sdta2021-05-22 14:21

以下是引用tjdeming在2021-5-22 14:19:31的发言：

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

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