2,722
社区成员
发帖
与我相关
我的任务
分享
Use kcb In 0
Use tt1 In 0
Select tt1
Scan
Select kcb
Locate For kcb.xh=tt1.xh
If !Found()
Insert Into kcb (xh,xm) Values (tt1.xh,tt1.xm)
Endif
lcSqlStr="Update kcb Set "+Alltrim(tt1.km)+"tt1.cj Where kcb.xh=tt1.xh"
&lcSqlStr
Endscan
insert into kcb (kc1,kc2,kc3,kc4) select cj,cj,cj,cj from tt1