项目：库存表，用跨表统计库存量，字段，产品编号，产品名称，单位，入库数量，出库数量，库存数，期未数1，用下面代码，只实现一个，没实现，入库数量，出库数量。计算出来库存数，期未数是库存数？
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
End If
If MainTable.Name = "库存表" Then
DataTables("库存表").DataRows.Clear()
For Each nk As String In DataTables("出库明细").GetValues("产品名称")
Dim dr As DataRow = DataTables("库存表").addnew( )
Dim nm As String = dr("产品编号") & "|" & dr("产品名称")
dr("产品名称") = nk
dr("出库_数量") = DataTables("出库明细").Compute("Sum(数量)","产品名称 = '" & nk & "'")
dr("出库_金额") = DataTables("出库明细").Compute("Sum(金额)","产品名称 = '" & nk & "'")
Next
End If
加好友 
发短信
Post By：2020/1/16 16:35:00 [只看该作者]
