- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 各位老师请进、关于多表更新数据问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16105)
-- 发布时间：2012/2/2 15:36:00
-- 各位老师请进、关于多表更新数据问题
请教各位老师：
我把库存的库存数量更新到BOM表的库存数
用的代码是：
If e.DataCol.Name = "库存_数量"
Dim Filter As String = "[物料编号] = \'" & e.DataRow("物料编号") & "\'"
Dim drs As List(Of DataRow) = DataTables("小方电动BOM").Select(Filter)
For Each dr As DataRow In drs
dr("库存") = e.DataRow("库存_数量")
Next
End If
这样的话只能更新到一张表，我如果想更新多张表，比如二次动作BOM、小方电动两张。代码应该怎么写呢？菜鸟问题请知道的老师教我下。下面是贴图
此主题相关图片如下：1245.jpg
-- 发布时间：2012/2/2 15:45:00
--
If e.DataCol.Name = "库存_数量"
Dim nms As String = {"小方电动BOM","小方电动BOM"}
For Each nm As String In nms
Dim Filter As String = "[物料编号] = \'" & e.DataRow("物料编号") & "\'"
Dim drs As List(Of DataRow) = DataTables(nm).Select(Filter)
For Each dr As DataRow In drs
dr("库存") = e.DataRow("库存_数量")
Next
Next
End If
-- 发布时间：2012/2/2 15:55:00
--
狐爸还是不行啊！报错！
此主题相关图片如下：12545.jpg
-- 发布时间：2012/2/2 16:18:00
--
Dim nms As String() = {"小方电动BOM","小方电动BOM"}
-- 发布时间：2012/2/2 16:34:00
--
已解决！谢谢狐爸！谢谢blukzhu