主题：统计取值

每一期都可能会开piao，所以开piao日期会不一样，是少数情况。

感觉这个逻辑有点走不通，我在想想还有没其他办法来处理。

比如，你第二期，要计算什么日期范围的数据？那同样是第二期，我修改了开piao日期，再统计，要统计什么数据？

开piao日期之前没有具体范围，之后就是开piao日期后一个月的15日前的。

Dim filter As String = "合同编码='" & dr("合同编码") & "' And 计量期数='" & dr("计量期数") & "'"    （不按期统计）

能否这样，第一期不存在，就是开piao日期后一个月15日之前的数据，第二期统计开piao日期后一个月15号之前的所有数据在减去第一期已经统计的数据，第三期统计开piao日期后一个月15日之前的所有数据在减去第一期和第二期已统计的数据，类推.......

完全没看懂你的逻辑。

1、第一期的时候，设置开piao日期是1月10日，统计什么数据？第二期，设置开piao日期为2月25日，统计什么数据？统计完以后，第二期，再设置开piao日期是2月11日，统计什么数据？

2、直接说你要做到什么效果吧。之前没统计是什么意思？怎么算已经被统计？

老师，重新传了个示例

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:进项piao跨时段统计.table

看懂代码，细节自己调整。

Dim d As Date = e.Form.Controls("开piao日期").value
Dim dr As DataRow = Tables("工程款管理").current.DataRow
Dim d2 As Date = new Date(d.year, d.Month, 15)
d2 = d2.AddMonths(1)
Dim filter As String = "合同编码='" & dr("合同编码") & "' and 寄达日期 <= #" & d2 & "#"
Dim sum1 As Double = DataTables("进项piao审核").sqlCompute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")
Dim sum2 As Double = 0
For i As Integer = 1 To dr("计量期数")-1
    sum2 += val(dr.DataTable.datarows(i-1)("本期统计增值税"))
Next
msgbox(sum1)
msgbox(sum2)
dr("本期统计增值税")= sum1-sum2

老师，我在示例里面测试没问题，弄到我的项目里面这句代码执行了但报错，

这个我改了，调试是后面一句报错的