主题：统计取值

进项piao录入，提交后：（"合同编码","所属机构","项目名称","计量期数","类别","品名","销售单位","开piao日期","fa piao号码","税价合计金额","税率","税额","审核状态"  ）到进项piao审核表。

此主题相关图片如下：进项piao录入.png

进项piao审核

此主题相关图片如下：进项piao审核.png

工程款审核

此主题相关图片如下：本期统计.png

目前对本期统计增值税方法如下：

Dim dr As DataRow = Tables("工程款管理").current.DataRow 

dr("本期统计增值税") = DataTables("进项piao审核").Compute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")

本期抵扣增值税采用的表达式取值：iif(IsNull([本期需要增值税],0)<IsNull([累计统计增值税],0), IsNull([本期需要增值税],0),IsNull([累计统计增值税],0))

问题：

    如我开piao日期（手填）为2018年1月，在统计第1期的增值税时，就不能统计2018年2月15日以后的，进项piao审核里面行号7、8、9就不统计进来，但是7、8、9需要统计到第2期。这个怎么处理呢？

 

dr("本期统计增值税") = DataTables("进项piao审核").Compute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao' and 日期 < #2/15/2018#")

老师，我如果弄到“本期统计增值税”里面，相当于第1期就没统计这几张piao的税额，我就没办法把这几张piao留到第2期啊？因为计量期数里面具体第几期计量是先定了的。

没明白你的意思

Dim dr As DataRow = Tables("工程款管理").current.DataRow
Dim filter As String = "合同编码='" & dr("合同编码") & "' And 计量期数='" & dr("计量期数") & "'"
dr("本期统计增值税") = DataTables("进项piao审核").Compute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")

 

我是根据合同编码、计量期数来统计的相的合同和计量期数。

和1楼的问题在什么地方有冲突？

进项piao审核中行号7.8.9三行的寄达日期晚于2018.02.15（在进项piao录入中有寄达日期），就不能使用，需要留到第2期使用。

实际在第1期工程款计量时，按照1楼是把第1期所有类别为专piao的进项piao统计完了。

那就排除这些寄达日期的记录不就行了。下一期在加上这些寄达日期的记录

老师，没搞懂，怎么排除怎么加？

1、表格有没有【送达日期列】？如果没有如何根据日期排除值？

 

2、根据日期列，根据你的期数，计算出日期范围，比如 1月15到2月15，统计这期间的数据。