求助：用VFP分类统计问卷的问题 - 编程论坛

#2

sdta2020-06-29 16:08

是不是有个表缺少FPT文件

#3

superdonaldd2020-06-29 16:12

回复 2楼 sdta

是的，是有一个ftp文件，我不知道怎么用，我重新上传，谢谢您

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

#4

sdta2020-06-29 16:13

EXCEL表中的数据是不是最后汇总的结果

#5

superdonaldd2020-06-29 16:15

回复 4楼 sdta

是的，excel表是最后的结果

#6

sdta2020-06-29 16:32

输出一张按性别分类的表
这个如何讲

#7

superdonaldd2020-06-29 16:39

回复 6楼 sdta

要输出excel那个表，但是我不知道代码

#8

wangzhiyi2020-06-29 17:22

问题不难，就是原始数据采集整理到DBF文件方法有问题，原始数据表数据比较混乱，期盼大神出手。

#9

sdta2020-06-29 18:41

数据不准的原因是XMXH不完善，完善后数据就准确了

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

#10

superdonaldd2020-06-30 09:20

回复 9楼 sdta

好的，谢谢版主，麻烦版主把代码发给我一下，我先学习学习，要是看不懂再请教您。

#11

sdta2020-06-30 09:58

程序代码：

SET COLLATE TO "MACHINE"
CREATE CURSOR tjhzb (zdm c(10), xmxh c(2), xmnr c(120), yb0 n(4), jg0 n(4), yb1 n(4), jg1 n(4), yb2 n(4), jg2 n(4), yb3 n(4), jg3 n(4))
CREATE TABLE tjb (zdm c(10), xmxh c(2), xmnr c(120), yb0 n(4), jg0 n(4), yb1 n(4), jg1 n(4), yb2 n(4), jg2 n(4), yb3 n(4), jg3 n(4))
SELECT DISTINCT zdm FROM dmztjm INTO CURSOR temp1
SCAN FOR BETWEEN(RECNO(), 2, 10)
    c1 = zdm
    INSERT INTO tjb (zdm, xmxh, xmnr) SELECT zdm, xmxh, xmnr FROM dmztjm WHERE ALLTRIM(zdm) == c1
    SELECT tjb
    INDEX on zdm + xmxh TAG dmxh
    SELECT bm, c1 zdm, a1, &c1 FROM ztjm INTO CURSOR temp2
    SET RELATION TO zdm + &c1 INTO tjb
    SCAN
        IF EMPTY(a1)
            c2 = "Yb0"
        ELSE
            c2 = "Yb" + temp2.a1
        ENDIF
        REPLACE (c2) WITH EVALUATE(c2) + 1, yb3 WITH yb0 + yb1 + yb2 IN tjb
    ENDSCAN
    SELECT tjb
    SET ORDER TO
    INSERT INTO tjb (xmnr, yb0, yb1, yb2, yb3) SELECT "合计", SUM(yb0), SUM(yb1), SUM(yb2), SUM(yb0) + SUM(yb1) + SUM(yb2) FROM tjb
    INSERT INTO tjhzb SELECT * FROM tjb WHERE NOT EMPTY(yb3)
    ZAP IN tjb
ENDSCAN
SELECT tjhzb
browse
USE IN tjb
ERASE tjb.dbf

#12

superdonaldd2020-06-30 10:26

回复 11楼 sdta

谢谢版主，我研究一下，不懂的再找您请教