If MainTable.Name = "库存表" Then
DataTables("库存表").DataRows.Clear()
For Each nm As String In DataTables("入库明细").GetValues("产品名称")
Dim dr As DataRow = DataTables("库存表").addnew( )
Dim nm As String = dr("产品编号") & "|" & dr("产品名称")
dr("产品名称") = nm
dr("入库_数量") = DataTables("入库明细").Compute("Sum(数量)","产品名称 = '" & nm & "'")
dr("入库_金额") = DataTables("入库明细").Compute("Sum(金额)","产品名称 = '" & nm & "'")
Next
For Each nk As String In DataTables("出库明细").GetValues("产品名称")
Dim dr As DataRow = DataTables("库存表").find("产品名='" & nk & "'")
if dr is nothing then
dr = DataTables("库存表").addnew( )
dr("产品名称") = nk
end if
dr("出库_数量") = DataTables("出库明细").Compute("Sum(数量)","产品名称 = '" & nk & "'")
dr("出库_金额") = DataTables("出库明细").Compute("Sum(金额)","产品名称 = '" & nk & "'")
Next
End If
加好友 
发短信
Post By：2020/1/16 16:42:00 [显示全部帖子]
