求助解答，谢谢。
B表变成B2结构并求和

[此贴子已经被作者于2018-1-5 22:33编辑过]

select distinct 项目 from B表 into array axm
select distinct 部门车间 from B表 into array acj
lcstr="项目 c(50),合计 n(10,2)"
for i=1 to alen(acj,1)
    lcstr=lcstr+","+alltrim(acj[i,1])+" n(10,2)"
endfor
create cursor b2 (&lcstr)
append from array axm
index on 项目 tag xm
select B表
set relation to 项目 into b2
scan
    replace (B表.部门车间) with evaluate(B表.部门车间)+B表.数量 in b2
endscan
set relation to
select b2
set order to 
* 行合计
lnsum=""
for i=3 to fcount()
    lnsum=lnsum+"+"+field(i)
endfor
replace all 合计 with &lnsum
* 列合计
insert into b2 (项目) values ("合计")
for i=2 to fcount()
    sum evaluate(field(i)) to lhj
    replace record reccount() (field(i)) with lhj
endfor
browse

此类问题，在以前的帖子里已经回复过你了

感谢SDTA的热心回复，此程序在9.0下运行正常。（6.0版本还没有试）
我是这样想的：有了一张原始表的数据后，从中统计数据，从不同的角度按项目等分类来分析数据，这就需要程序来解决。有效率。
每次都要来麻烦你，不好意思。
再次感谢。

这是VFP6.0代码

谢谢你，SDTA

关于交叉表的问题，这里有更透彻的讨论。
https://bbs.bccn.net/viewthread.php?tid=462060&page=1#pid2554156

这个正是我要的。不过我的还有个不同。举个例子：
在他的要求中，对部门的求和时，部门的数量是固定的，即只有2车间，3车间，维修部等5个部门。
我要求是，部门的数量随机变得的。

如在订单统计中，会出现若干订单，产品可能相同，也可能不同。订单也会随机增加或减少。

这个要求应该怎么实现呀？

嘿嘿，仔细看了看。明白了。

重新发个帖，放上相关数据，说下具体要求