以下是引用don在2013-6-25 16:40:00的发言：
看樓主的代碼,這樣就達到目的吧:
Dim t1 As Table = Tables("仓库总账")
Dim dt1,dt2 As DataTable
Dim flt,s1 As String
Dim Date1,Date2 As Date
Date1 = Tables("月末结账").Current("结账期_起")
Date2 = Tables("月末结账").Current("结账期_讫")
dt1 = DataTables("采购入库单明细表")
dt2 = DataTables("生产入库单明细")
s1 = "[日期] >= #" & Date1 & "# And [日期]<= #" & Date2 & "#"
t1.Filter = "[期间] = '" & Date1.Month & "'"
For Each r2 As Row In t1.Rows
flt = s1 & " and 品号 = '" r2("品号") & "'"
r2("入库数量") = dt1.Compute("Sum(数量)",flt) + dt2.Compute("Sum(数量)",flt)
r2("入库金额") = dt1.Compute("Sum(金额)",flt) + dt2.Compute("Sum(金额)",flt)
Next
t1.DataTable.save
呵呵，我看着别人的代码就晕，这方面的能力我能有你一半就好了。
加好友 
发短信
Post By：2013/6/25 15:56:00 [显示全部帖子]
