主题：统计数据代码出错问题

参考代码

For Each dr As DataRow In DataTables("合同表").Select("")
    Dim y As Integer = cdate(dr("录入时间")).year '指定年份
    Dim q As Integer = Math.Ceiling(cdate(dr("录入时间")).Month / 3) '指定季度
   
    If q = 1 Then
        Dim dt1 As DataTable=DataTables("批发表")
        Dim dt2 As DataTable=DataTables("入库表")
       
        Dim dt3 As New Date(y, 3 * (q - 1) + 1, 1) '获取该季度的第一天
        Dim dt4 As Date = dt3.AddMonths(1)
        Dim Filter As String
        Filter = "单据日期 >= #" & dt3 & "# And 单据日期 < #" & dt4 & "#"
       
        Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "' and " & Filter)
        Dim YFSL2 As Double = dt1.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "' and " & Filter)
        Dim YFSL3 As Double = dt2.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "' and " & Filter)
        Dim YFSL4 As Double = dt2.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "' and " & Filter)
        dr("第一季度应返数量") = YFSL1 + YFSL2+ YFSL3+ YFSL4
    End If
Next

单独写一个条件就行啊

Dim Filter2 As String = "登记日期 >= #" & dt3 & "# And 登记日期 < #" & dt4 & "#"

Dim sum As Double = DataTables("收缴表").compute("sum(收缴数量)", "财务编号 = '" & dr("财务编号") & "' and " & filter)

msgbox(sum)

 你弹出查询条件，然后去找数据

 你先理清你的逻辑，再写代码。

msgbox(财务编号 = '" & dr("财务编号") & "' and " & filter)

那查询的时候，直接根据 财务编号 查询，不需要写时间条件的啊。