各位好，有一张QQ原始表，经统计后变成 BM表 形式 如何实现？ 谢谢谢！   
注：部门和工资二大类字段名，有时候有增减的情况发生。

[此贴子已经被作者于2017-4-20 21:03编辑过]

楼主这是没事找事做，这样反复转换有什么意义

谢谢SDTA，第二张表是一张定期要统计的报表，通过VFP程序来做可减少手工输入性错误，确保数据正确无误。
谢谢。

CLEAR
SET SAFETY OFF
USE qq ALIAS qq IN 0
USE bm ALIAS bm IN 0
SELECT bm
fieldlist = FIELD(2)
FOR i=3 TO FCOUNT()
    fieldlist = fieldlist + ","+FIELD(i)
ENDFOR
EXECSCRIPT("BLANK FIELDS " + fieldlist + " ALL")
INDEX on ALLTRIM(部门) TAG 部门
SELECT qq
SCAN
    bmn = ALLTRIM(qq.部门)
    IF SEEK("人数", "bm")
        EXECSCRIPT(_cmd(bmn,1))
    ENDIF
    FOR i=3 TO FCOUNT()
        fn = FIELD(i)
        IF SEEK(fn, "bm")
            EXECSCRIPT(_cmd(bmn, EVALUATE(fn)))
        ENDIF
    ENDFOR
ENDSCAN
SELECT bm
DELETE TAG ALL
fieldlist = FIELD(2)
FOR i=3 TO FCOUNT()-1
    fieldlist = fieldlist + "+" + FIELD(i)
ENDFOR
EXECSCRIPT([REPLACE 合计 WITH ] + fieldlist + [ ALL in "bm"])
BROWSE
CLOSE DATABASES ALL

FUNCTION _cmd(fn, val)
    RETURN [REPLACE ] + fn + [ WITH ] + fn + [+] + TRANSFORM(val) + [ in "bm"]
ENDFUNC

感谢 吹水佬 的付出，该程序运行至
EXECSCRIPT("BLANK FIELDS " + fieldlist + " ALL")
估计是我用VFP6.0原因。不能识别 EXECSCRIPT命令。
对不起吹先生，我没有说清楚。
麻烦能帮我改成VFP6.0的语句，行吗？

改用VFP9

VFP版本不重要，解决问题才是硬道理。

试试用宏
BLANK FIELDS &fieldlist ALL
如果是表结构固定，直接写上字段名好了，运行效率也高。

[此贴子已经被作者于2017-4-21 19:52编辑过]

谢谢热心回复
第一处我改了，运行至第二个EXECSCRIPT，又卡了。

Use qq
Create Cursor temp(姓名 c(8), 部门 c(10), 项目 c(10), 金额 N(10,2))

Select qq
Scan
    For m.i = 3 To 10
        m.lcFiled = Field(m.i)
        m.lnFiled = Evaluate(m.lcFiled)
        Insert Into Temp(姓名, 部门, 项目, 金额) ;
            values(Qq.姓名, Qq.部门, m.lcFiled, m.lnFiled)
    Endfor
Endscan

Select Temp.项目, Temp.部门, Sum(Temp.金额);
    FROM TEMP;
    GROUP By Temp.项目, Temp.部门;
    ORDER By Temp.项目, Temp.部门;
    INTO Cursor temp2

Select temp2
Do (_Genxtab) With 'bm2.dbf',.T.,.T.,.T.,,,,.T.,0,.T.

Use In temp
Use In qq

Brow

剩下的应该很容易了。。。。。。
顺便说一下，你的 QQ 表结构非常的不合理。。。。。。