按钮事件，或者命令窗口执行下面代码
DataTables("国控销售组合汇总对我公司入库").SQLReplaceFor("核对",False)
DataTables("我公司入库对国控吉林销售").SQLReplaceFor("核对",False)
Dim sql = "uｐdate {国控销售组合汇总对我公司入库} as a,{我公司入库对国控吉林销售} as b set a.核对 = true,b.核对 = true where a.品名 = b.品名 and a.含税单价=b.含税单价 and a.数量 = b.数量"
Dim cmd As new SQLCommand
cmd.CommandText = sql
cmd.ExecuteNonQuery
DataTables("国控销售组合汇总对我公司入库").Load
DataTables("我公司入库对国控吉林销售").Load
加好友 
发短信
Post By：2016/10/20 23:24:00 [显示全部帖子]
