For Each dr As DataRow In DataTables("表B").DataRows Dim nm As String = dr("产品") dr("采购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '采购入库'") dr("生产入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '生产入库'") dr("外购入库") = DataTables("表A").Compute("Sum(数量)","产品 = '" & nm & "' And 入库类别 = '外购入库'") Next
加好友 
发短信
Post By：2013/2/28 9:13:00 [显示全部帖子]
