gg.prg

来自「超市收款」· PRG 代码 · 共 22 行

sele 1
use cpk
m=reccount()
sele 2
use rk
sele 3
use cp
sele 4
use xiao
for i=1 to m
sele 1
go i
a1=产品编号
a2=名称
sele 2
replace 名称 with a2 for   产品编号=a1
sele 3
replace 名称 with a2 for   产品编号=a1
sele 4
replace 名称 with a2 for   产品编号=a1
endfor
return