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

For Each dr As DataRow In DataTables("合同表").Select("")
    '第一季度应返数量
    Dim dt1 As DataTable=DataTables("批发表")
    Dim dt2 As DataTable=DataTables("入库表")
   
    Dim y As Integer = 2016 '指定年份
    Dim q As Integer = 1 '指定季度
    Dim dt3 As New Date(y, 3 * (q - 1) + 1, 1) '获取该季度的第一天
    Dim dt4 As New Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) '获取该季度的最后一天
    Dim Filter As String
    Filter = "日期 >= #" & dt3 & "# And 日期 <= #" & dt4 & "#"
   
    Dim YFSL1 As Double = dt1.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "'","Filter")
    Dim YFSL2 As Double = dt1.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "'","Filter")
    Dim YFSL3 As Double = dt2.Compute("sum(数量)", "高开编号 = '" & dr("财务编号") & "'","Filter")
    Dim YFSL4 As Double = dt2.Compute("sum(数量)", "返利编号 = '" & dr("财务编号") & "'","Filter")
    dr("第一季度应返数量") = YFSL1 + YFSL2+ YFSL3+ YFSL4
   
    '第一季度应返金额
    Dim YFJE1 As Double = dt1.Compute("sum(返利应返金额)", "返利编号 = '" & dr("财务编号") & "'",Filter)
    Dim YFJE2 As Double = dt1.Compute("sum(高开应返金额)", "高开编号 = '" & dr("财务编号") & "'",Filter)
    Dim YFJE3 As Double = dt2.Compute("sum(返利应返金额)", "返利编号 = '" & dr("财务编号") & "'",Filter)
    Dim YFJE4 As Double = dt2.Compute("sum(高开应返金额)", "高开编号 = '" & dr("财务编号") & "'",Filter)
    dr("第一季度应返金额") = YFJE1 + YFJE2+ YFJE3+ YFJE4
   
Next

以上代码，我想统计第一季度数据，结果出错，提示如下：

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

请老师帮忙改一下。