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

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

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

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

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

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

非常感谢你的代码，不过我的BM表的字段名位置是固定的，第一列的内容顺序也是固定的（除非有内容增减）。

系统WIN10G下由6.0改用9.0后，DBF表都变成”只读”状态。

非常感谢各位的无私付出，现附上VFP6.0的代码，一是VFP9.0和6.0 都有了，二来表示这个贴子也有个结果，三来恳请高手给予点评、修改。
*****VFP6.0***
CLOSE ALL
set talk off
set safety off
use qq  ALIAS qq IN 0
 index on ALLT(部门) tag 部门
 sele 部门  from qq group by 部门 into tabl bmb
sele bmb
 cstr=""
 scan
     cstr=cstr+allt(部门)+" N(10,2),"
 endscan
 cstr=left(cstr,len(cstr)-1)
 
 create TABL BM (部门 C(10),DM C(2),&cstr,hj n(12,2))
 append from GZB fields 部门,DM
 *index on 部门 tag 部门
 sele BM
   FOR I=3 TO FCOUNT()
           FN=FIELD(I)
       scan
            ZDM=ALLT(BM.部门)
             if BM.部门='人数'
                 SELE COUNT(*) FROM QQ WHERE  QQ.部门=FN INTO ARRAY RS
                 REPL &FN  WITH RS  
              ENDIF
              SELE  QQ           
                 if fsize('&ZDM')>0
                     SUM(&ZDM) TO QN FOR QQ.部门=FN
                     SELE BM
                     REPL &FN  WITH QN   
                 Endif
         ENDscan
    endfor
 
  SELE BM
   nfield=''
  for i=3 to fcount()
      nfield=nfield+field(i)+"+"
  endfor
    nfield=left(nfield,len(nfield)-1)   
  repl all hj with &nfield
 use
 use bm
 brow

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

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

这句没有看懂，能解答吗，谢谢！

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

这句没有看懂，能解答吗，谢谢！