回复 6楼 zengguo9222
先用total on 命令统计每个分类(工号+产品名称)的业绩总和,再与表a连接产生所需结果,参考以下代码。
private all
set safety off
dimension rec1(300)
use 表B
total on 工号+产品名称 to lszjk
use lszjk
alter table lszjk add column 姓名 C(10)
alter table lszjk add column 部门 C(20)
alter table lszjk add column 职级 C(10)
go top
do while .not.eof()
qdpdh=工号
sele 2
use 表A
locate for 工号=qdpdh
if found()
scatter to rec1
sele 1
replace 姓名 with rec1(2)
replace 部门 with rec1(3)
replace 职级 with rec1(4)
else
sele 1
endif
skip
enddo
sele 2
use
sele 1
wait "以下是数据统计的结果" windows at 16,50 nowait
brow
use
return