主题：统计取值

老师，我在进项piao审核表增加了“寄到日期“列，在工程款管理基本信息录入窗口增加了一个“开piao日期“的日期输入款控件，来输入开piao的日期。

当我开piao日期为上一个月或之前，这个月统计“本期统计增值税“时就不统计本月15日后寄达的怎么写？在下一期计量时需要把上一期没统计的统计进来。

 

Dim dr As DataRow = Tables("工程款管理").current.DataRow
Dim filter As String = "合同编码='" & dr("合同编码") & "' and 项目名称='" & dr("项目名称") & "' And 计量期数='" & dr("计量期数") & "'"

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

 

期数和日期怎么转换？假如日期是 201802，要统计，那就统计寄到日期为 2018-01-15到2018-02-15 的数据，即可。

 

如条件 "寄到日期 > ## and 寄到日期 <= ##"

老师做了个示例

 

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

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

此主题相关图片如下：qq图片20180212100728.png

Dim d As Date = e.Form.Controls("开piao日期").value
If d = Nothing OrElse Format(d, "yyyyMM") >= Format(Date.Today, "yyyyMM") Then
    Dim dr As DataRow = Tables("工程款管理").current.DataRow
    Dim filter As String = "合同编码='" & dr("合同编码") & "'And 计量期数='" & dr("计量期数") & "'"
    dr("本期统计增值税") = DataTables("进项piao审核").sqlCompute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")
Else
    Dim dr As DataRow = Tables("工程款管理").current.DataRow
    Dim d2 As Date = new Date(Date.Today.year, Date.Today.Month, 15)
    If dr("计量期数") = "1" Then
        Dim filter As String = "合同编码='" & dr("合同编码") & "'And 寄达日期 >= #" & d & "# and 寄达日期 <= #" & d2 & "#"
        dr("本期统计增值税") = DataTables("进项piao审核").sqlCompute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")
    Else
        Dim filter As String = "合同编码='" & dr("合同编码") & "'And 寄达日期 > #" & d2 & "#"
        dr("本期统计增值税") = DataTables("进项piao审核").sqlCompute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")
    End If
End If

老师，有点没说清楚，

统计的日期d2：应该是统计开piao日期d的后一个月的15日之前的。

我计量期数是无限增大的，最多的可能有20期。

 

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

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

此主题相关图片如下：11.png

Dim d As Date = e.Form.Controls("开piao日期").value
Dim dr As DataRow = Tables("工程款管理").current.DataRow
Dim d1 As Date = d
If dr("计量期数") <> "1" Then
    d = d.AddMonths(dr("计量期数")-1)
    d1 = new Date(d.year, d.Month, 15)
End If
Dim d2 As Date = new Date(d1.year, d1.Month, 15)
d2 = d2.AddMonths(1)
Dim filter As String = "合同编码='" & dr("合同编码") & "' And 寄达日期 >= #" & d1 & "# and 寄达日期 <= #" & d2 & "#"
dr("本期统计增值税") = DataTables("进项piao审核").Compute("sum(税额)", filter & " And 审核状态='财务部已审核' and 类别='专piao'")
msgbox(filter & " And 审核状态='财务部已审核' and 类别='专piao'")

出来结果取值还是不对啊？

完全看不懂你什么逻辑。能不能理清楚再说？

确实逻辑有点乱了。

1、你每次、每一行的开piao日期都不一样？

 

2、怎么知道你上一期是什么时候到什么时候的数据？

 

3、每一期的计算结果，是什么日期范围的数据？有没有统计过的数据根据什么判断？