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

昏了。。。。你就不会在UI和报表里调整下顺序？建个索引？

真的晕了
VFP6中没有EXECSCRIPT()，要用这个函数只能用VFP9。类似代码也帮你写了几个，这类问题你也应该能够自己解决了吧。

你自己就不能加一个辅助用表。

系统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.

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

_Genxtab 是VFP的系统变量。

可以参考VFP的交叉表向导来理解。

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