月筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

可以了谢谢如果只是负债本月和上个月的统计和最后一行，该改那里啊，只是改变本月和上月的，其他的行的数据都不变，感谢感谢

Dim afdr As DataRow = dt_dd.Find(filter, "订单日期 desc" & IIF(d.Month = Date.Today.Month OrElse d.Month = Date.Today.AddMonths(-1).Month ,",[_Identify] desc",""))

谢谢还是一样的，会把所有的数据都刷新一次，不是复制了本月和上月的数据啊感谢感谢

For Each ndr As DataRow In dt_tj.Select("")

改成

Dim d As Date = date.Today

Dim pd As Date = d.AddMonths(-1)

For Each ndr As DataRow In dt_tj.Select("年份 = '" & pd.Year & "' and 月份 = '" & pd.Month & "' or 年份 = '" & d.Month & "' and 月份 = '" & d.Month & "'")

谢谢了还是不对，只是把前几个表统计的复制到统计表的上个月去了，没事谢谢你了，不行就算了吧，全部统计复制过来也能用，就是觉得全部一起算有些麻烦。感谢了

15楼的代码应该可以的，不过有个笔误的地方

Dim d As Date = Date.Today

Dim pd As Date = d.AddMonths(-1)

For Each ndr As DataRow In dt_tj.Select("年份 = '" & pd.Year & "' and 月份 = '" & pd.Month & "' or 年份 = '" & d.Year & "' and 月份 = '" & d.Month & "'")

看不懂你的意思，上传实例测试。

主题：月筛选