Dim dt_tj As DataTable = DataTables("统计")
Dim dt_dd As DataTable = DataTables("订单")
Dim dt_zc As DataTable = DataTables("支出")
For Each ndr As DataRow In dt_tj.Select("")
Dim i As Integer = ndr("年份")
Dim j As Integer = ndr("月份")
If i > 0 AndAlso j > 0 Then
Dim d As Date = new Date(i, j, 1)
Dim filter As String = "订单日期 >= #" & d & "# and 订单日期 < #" & d.AddMonths(1) & "#"
ndr("订单_数量") = val(dt_dd.compute("sum(数量)", filter))
ndr("订单_价格") = val(dt_dd.compute("sum(价格)", filter))
Dim afdr As DataRow = dt_dd.Find(filter, "订单日期 desc,[_Identify] desc")
If afdr IsNot Nothing Then
ndr("订单_预留价格") = afdr("预留价格")
Else
ndr("订单_预留价格") = 0
End If
filter = "支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#"
ndr("支出_数量") = val(dt_zc.compute("sum(次数)", filter))
ndr("支出_单价") = val(dt_zc.compute("sum(单价)", filter))
Dim fdr As DataRow = dt_zc.Find(filter, "支出日期 desc,[_Identify] desc")
If fdr IsNot Nothing Then
ndr("支出_预留单价") = fdr("预留单价")
Else
ndr("支出_预留单价") = 0
End If
End If
Next
加好友 
发短信
Post By：2016/11/5 9:00:00 [显示全部帖子]
