以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=66718)

--  作者:wldhj
--  发布时间:2015/4/12 20:00:00
--  [求助]
有表A表B两表,表B里的数据是从另一个系统下载下来再导进去的(每次导入时都是将原数据删除再重新导入),表A表B都有共同的商品编号、金额等。我想要实现:每次表B导入时,表A中对应商品编号的金额等信息会按表B更新,表B新增的商品也会新增到表A中。
--  作者:有点酸
--  发布时间:2015/4/12 20:26:00
--  
数据引用参考:
http://www.foxtable.com/help/topics/1451.htm
http://www.foxtable.com/help/topics/1453.htm


至于表B新增商品复制到表A,可以这样:

导入数据的代码
.....
.....
DataTables("表A").DataCols("列名").RaiseDataColChanged()  \'重置触发列,从表B提取金额等信息
For each dr As DataRow in DataTables("表B")
    dim dr2 As DataRow = Dtatables("表A").Find("商品编号 = \'" & dr("商品编号") & "\'")
    if dr2 is nothing then
         dr2 = Dtatables("表A").AddNew
         dr2("商品编号") = dr("商品编号")
         dr2("其他列1") = dr("其他列1")
         dr2("其他列1") = dr("其他列1")
   end if
next
[此贴子已经被作者于2015/4/12 20:25:58编辑过]

--  作者:wldhj
--  发布时间:2015/4/12 20:46:00
--  
谢谢