|
Dim dt_mx As DataTable = DataTables("请购明细")
Dim dt_hz As DataTable = DataTables("请购汇总")
dt_hz.DataRows.Clear
For Each ary() As String In dt_mx.GetValues("请购单号|物料编码")
Dim ndr As DataRow = dt_hz.AddNew
ndr("请购单号") = ary(0)
ndr("物料编码") = ary(1)
Dim filter As String = "请购单号 = '" & ary(0) & "' and 物料编码 = '" & ary(1) & "'"
ndr("数量") = dt_mx.Compute("sum(数量)", filter)
Dim str As String = ""
For Each s As String In dt_mx.GetValues("通知单号",filter)
str &= iif(str>"", vbcrlf, "") & s & "/" & dt_mx.Compute("sum(数量)", filter & " and 通知单号 = '" & s & "'")
Next
ndr("请购简介") = str
Next
|
加好友 
发短信
Post By：2015/6/29 16:07:00 [显示全部帖子]
