DataTables("表C").DataRows.clear
Dim f As new Filler
f.SourceTable = DataTables("销售明细表") '指定数据来源
f.SourceCols = "单号,品名,件数,包装,规格,单价,金额,产品id,客户名称" '指定数据来源列
f.DataTable = DataTables("表C") '指定数据接收表
f.DataCols = "单号,品名,件数,包装,规格,单价,欠款金额,产品id,客户名称" '指定数据接收列
f.Fill() '填充数据
For Each dr As DataRow In DataTables("表C").DataRows
Dim fdr As DataRow = DataTables("销售主表").Find("单号 = '" & dr("单号") & "'")
If fdr IsNot Nothing Then
dr("日期") = fdr("日期")
End If
Next
f = new Filler
f.SourceTable = DataTables("客户付款表") '指定数据来源
f.SourceCols = "单号,日期,客户名称,付款金额" '指定数据来源列
f.DataTable = DataTables("表C") '指定数据接收表
f.DataCols = "单号,日期,客户名称,付款金额" '指定数据接收列
f.Fill() '填充数据
For Each dr As DataRow In DataTables("表C").Select("付款金额 Is not null")
dr("欠款金额") = DataTables("表C").Compute("sum(欠款金额)", "客户名称 = '" & dr("客户名称") & "' and 日期 <= #" & dr("日期") & "# and _Identify <> " & dr("_Identify")) - dr("付款金额")
Next
Tables("表C").Sort = "日期"
加好友 
发短信
Post By：2013/12/16 20:18:00 [显示全部帖子]
