主题：报错查不出来问题请指教

Dim dt As Date = e.DataRow("日期")
Dim dt1 As New Date(dt.Year, dt.Month, 1)
Dim dt2 As New Date(dt.Year, dt.Month, Date.DaysInMonth(dt.Year, dt.Month))
messagebox.Show(1)
If e.DataCol.name = "日期" Then
    If e.DataRow.IsNull("日期") = False
        Dim Filter As String
        Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
        Tables("家庭帐本").Filter = Filter
    End If
End If
messagebox.Show(2)
Select Case e.DataCol.Name
    Case "金额"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        drs = e.DataTable.Select("记帐类别 = '收入' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#","日期")
        If drs.Count = 1 Then
            e.DataRow("全月_收入")=e.DataRow("金额")
        ElseIf drs.count > 1 then
            drs = e.DataTable.Select("记帐类别 = '收入' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#","日期")
            drs(0)("全月_收入") =  drs(0)("金额")
            For i As Integer = 1 To drs.Count-1
                drs(i)("全月_收入") = drs(i-1)("全月_收入") + drs(i)("金额")
            Next
        End If
End Select
messagebox.Show(3)
Select Case e.DataCol.Name
    Case "金额"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        drs = e.DataTable.Select("记帐类别 = '收入' and 日期 >= #" & dt.Year & "/1/1 # ","日期")
        If drs.Count = 1 Then
            e.DataRow("全年_收入")=e.DataRow("金额")
        ElseIf drs.count > 1
            drs = e.DataTable.Select("记帐类别 = '收入' and 日期 >= #" & dt.Year & "/1/1 # ","日期")
            drs(0)("全年_收入") = drs(0)("金额")
            For i As Integer = 1 To drs.Count-1
                drs(i)("全年_收入") = drs(i-1)("全年_收入") + drs(i)("金额")
            Next
        End If
End Select
messagebox.Show(5)
Select Case e.DataCol.Name
    Case "金额"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        drs = e.DataTable.Select("记帐类别 = '支出 ' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#","日期")
        If drs.Count = 1 Then
            e.DataRow("全月_支出")=e.DataRow("金额")
        ElseIf drs.count  > 1
            drs = e.DataTable.Select("记帐类别 = '支出 ' and 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#","日期")
            drs(0)("全月_支出") = drs(0)("金额")
            For i As Integer = 1 To drs.Count-1
                drs(i)("全月_支出") = drs(i-1)("全月_支出") + drs(i)("金额")
            Next
        End If
End Select
messagebox.Show(4)
Select Case e.DataCol.Name
    Case "金额"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        drs = e.DataTable.Select("记帐类别 = '支出 ' and 日期 >= #" & dt.Year & "/1/1 # ","日期")
        If drs.Count = 1 Then
            e.DataRow("全年_支出")=e.DataRow("金额")
        ElseIf drs.count > 1
            drs = e.DataTable.Select("记帐类别 = '支出 ' and 日期 >= #" & dt.Year & "/1/1 # ","日期")
           
            drs(0)("全年_支出") = drs(0)("金额")
            For i As Integer = 1 To drs.Count-1
                drs(i)("全年_支出") = drs(i-1)("全年_支出") + drs(i)("金额")
            Next
        End If
End Select
messagebox.Show(6)
DataTables("家庭帐本").Save()