标题：各位老师请进、关于多表更新数据问题

请教各位老师：

   我把库存的库存数量更新到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

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

狐爸还是不行啊！报错！

 

 

此主题相关图片如下：12545.jpg

Dim nms As String() = {"小方电动BOM","小方电动BOM"}

已解决！谢谢狐爸！谢谢blukzhu