现有 开支明细帐.dbf 我想动态生成 开支统计表.dbf
要求：
1、开支统计表中除“姓名”、“合计”字段外，其它字段由 开支明细帐.dbf中“支出明细”动态生成，具体字段数量不固定；
2、“合计”字段要放在最右边；
3、最后统计毎个学生支出金额，写入“合计”中。
【由于本人是新手，对vfp纯属个人爱好，不喜勿喷！】
请各位高手不吝赐教，万分感谢！！！

原始表：开支明细帐.dbf

结果表：开支统计表.dbf

[此贴子已经被作者于2025-10-20 16:00编辑过]

数据表已作修改，不知是否规范

谢谢！！！

如何确保“合计”字段放在所有字段的最右边，请指点！

谢谢！我想将生成的“开支统计表.dbf”中的“合计”放到表的最后（最右边）显示，不知可行？另外，可否去掉小数部分，请赐教！

[此贴子已经被作者于2025-10-21 16:30编辑过]

谢谢各位大佬的热心指导！！！
奇怪的是我在电脑上运行后“费用汇总统计”只有“姓名”和“合计”，并且都是空的，是软件的问题，还是其他原因？

同样是空的

DECLARE long sscanf IN msvcr71 long, string, single@, long@
DECLARE long strcpy IN msvcr71 string@, string
buffer = REPLICATE(0h00,256)
a = 0.00
n = 0
CREATE CURSOR tt (姓名 c(10), 项目 v(10), 金额 n(6,2))
USE E:\temp9\开支明细帐.dbf ALIAS tb IN 0
SELECT tb
SCAN
    FOR i=1 TO ALINES(arr,tb.支出明细,5,"，")
        p  = strcpy(@buffer, arr[i])
        ph = p
        DO WHILE SYS(2600,p,1) != 0h00
            IF sscanf(p,"%f%n",@a,@n) == 1
                INSERT INTO tt VALUES (tb.姓名, SYS(2600,ph,p-ph), a)
                EXIT
            ELSE
                p = p+1
            ENDIF
        ENDDO
    ENDFOR
ENDSCAN
cmd = "CREATE TABLE 开支统计表 (姓名 c(10)"
SELECT DISTINCT 项目 FROM tt INTO CURSOR tmp
SCAN
    cmd = cmd + "," + 项目 + " n(6,2)"
ENDSCAN
cmd = cmd + ", 合计 n(6,2))"
EXECSCRIPT(cmd)
SELECT DISTINCT 姓名 FROM tt INTO CURSOR tmp
SELECT 开支统计表
APPEND FROM DBF("tmp")
INDEX on 姓名 TAG 姓名
SELECT tt
SET RELATION TO 姓名 INTO "开支统计表"
SCAN
    REPLACE (tt.项目) WITH tt.金额, 合计 WITH 合计 + tt.金额 IN "开支统计表"
ENDSCAN
SELECT * FROM 开支统计表

明天发截图

生成文件名称为“开支统计表.dbf",打开后连标题都变了