[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有2894人关注过本帖树形打印复制链接主题：[求助]

wldhj

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：368 积分：4209 威望：0 精华：0 注册：2013/12/26 18:44:00

[求助]

Post By：2015/4/12 20:00:00 [只看该作者]

有表A表B两表，表B里的数据是从另一个系统下载下来再导进去的（每次导入时都是将原数据删除再重新导入），表A表B都有共同的商品编号、金额等。我想要实现：每次表B导入时，表A中对应商品编号的金额等信息会按表B更新，表B新增的商品也会新增到表A中。

有点酸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：五尾狐帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00

Post By：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")

end if

[此贴子已经被作者于2015/4/12 20:25:58编辑过]

wldhj

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：368 积分：4209 威望：0 精华：0 注册：2013/12/26 18:44:00

Post By：2015/4/12 20:46:00 [只看该作者]

谢谢

主题：[求助]