- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 麻烦！ 希望各位可以指点， 窗口执行表A数据，导入表B (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29878)
-- 发布时间：2013/3/15 12:51:00
-- 麻烦！ 希望各位可以指点， 窗口执行表A数据，导入表B
麻烦！ 希望各位可以指点， 窗口执行表A数据，导入表B
表A是存放数据的，表B是临时存放的， 在表B录入后，点击确认导入 至 表A，
问题是， 如果表A中，没有表B的新数据，则增加行，直接导入。
如果表A中，已经存在 表B的数据， 则增加数量。
表格A： 商品代码， 商品类型， 商品名称，型号规格， 总数
表格B： 商品代码， 商品类型， 商品名称，型号规格， 新增 数量
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
[此贴子已经被作者于2013-3-15 13:15:53编辑过]
-- 发布时间：2013/3/15 12:52:00
--
代码不知道， 怎么写， 给点提示也行， 给个开头也行！！
-- 发布时间：2013/3/15 13:03:00
--
自己设计好这两个表，输入几行测试数据，然后发上来，有空的时候，我们帮你写一下代码，以后你照着做就行。
-- 发布时间：2013/3/15 13:17:00
--
狐爸， 案例已经上传了！！ 麻烦您看下。
由于现在是个人使用，就不考虑， 多人使用的问题了！
-- 发布时间：2013/3/15 13:26:00
--
我的想法 很简单，就是有个 草稿表（表B），在增加数据的时候，有个缓冲。 可以更清楚， 更加确认， 减少错误
-- 发布时间：2013/3/15 14:18:00
--
For Each dr1 As DataRow In DataTables("库存临时表").Select("商品代码 Is Not Null")
Dim dr2 As DataRow = DataTables("库存明细表").Find("商品代码 = \'" & dr1("商品代码") & "\'")
If dr2 Is Nothing
dr2 = DataTables("库存明细表").AddNew()
dr2("商品类型") = dr1("商品类型")
dr2("品牌型号") = dr1("品牌型号")
dr2("型号规格") = dr1("型号规格")
dr2("单位") = dr1("单位")
dr2("单价") = dr1("单价")
End If
dr2("库存数量") = dr2("库存数量") + dr1("入库数量")
Next