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
加好友 
发短信
Post By：2012/2/2 15:45:00 [显示全部帖子]
