主题：[求助]关于分页加载后筛选的问题

分页加载后自制的筛选窗口：

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

代码如下：

Dim tbl As Table = Tables("主合同")
Dim Filter As String
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "签订日期 >= '" & .Value & "'"
        tbl.DataTable.loadFilter = Filter
        tbl.DataTable.loadPage = 0
        tbl.DataTable.load
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "签订日期 <= '" & .Value & "'"
        tbl.DataTable.loadFilter = Filter
        tbl.DataTable.loadPage = 0
        tbl.DataTable.load
    End If
End With
With e.Form.Controls("DateTimePicker3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "合同结束日期 >= '" & .Value & "'"
        tbl.DataTable.loadFilter = Filter
        tbl.DataTable.loadPage = 0
        tbl.DataTable.load
    End If
End With
With e.Form.Controls("DateTimePicker4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "合同结束日期 <= '" & .Value & "'"
        tbl.DataTable.loadFilter = Filter
        tbl.DataTable.loadPage = 0
        tbl.DataTable.load
    End If
End With
If e.Form.Controls("CheckBox1").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "代账服务 =  True"
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If e.Form.Controls("CheckBox2").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "代税服务_国税申报 = True "
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If e.Form.Controls("CheckBox3").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & ("工商代理_年报公示 = True or (工商代理_注册登记 = True) Or (工商代理_变更登记 =True) Or (工商代理_注销登记 =True)")
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If e.Form.Controls("CheckBox4").Checked = True
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "下欠服务费 > 0"
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If

If e.Form.Controls("RadioButton2").Checked = True ' 如果已审核状态选择了"对号"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已审核 = True"
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If e.Form.Controls("RadioButton3").Checked = True ' 如果已审核状态未选择"对号"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已审核 = False Or 已审核 Is Null"
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If e.Form.Controls("RadioButton6").Checked = True ' 如果客户状态选择了"对号"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已终止 = True"
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If e.Form.Controls("RadioButton5").Checked = True ' 如果客户状态未选择"对号"
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "已终止 = False Or 已终止 Is Null"
    tbl.DataTable.loadFilter = Filter
    tbl.DataTable.loadPage = 0
    tbl.DataTable.load
End If
If Filter > "" Then
    tbl.DataTable.loadFilter = Filter
End If

“签订日期”和“结束日期”都能够正常筛选查询（可以实现全部数据的查询），但是如果选择了“逻辑型”的选项，出现如下错误，望版主看一下，哪里出错了，自己折腾了一下午！

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