关于后台筛选，这段代码的问题究竟在哪里？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim LoadFilter As String
With e.Form.Controls("开始日期")
    If .Value IsNot Nothing Then
        If LoadFilter >"" Then
            LoadFilter = LoadFilter & " And "
        End If
        LoadFilter = LoadFilter & "录入日期 >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("结束日期")
    If .Value IsNot Nothing Then
        If LoadFilter >"" Then
            LoadFilter = LoadFilter & " And "
        End If
        LoadFilter = LoadFilter & "录入日期 <= '" & .Value & "'"
    End If
End With
If e.Form.Controls("标注").Checked = True ' 如果付款状态选择了"已付"
    If LoadFilter >"" Then
        LoadFilter = LoadFilter & " And "
    End If
    LoadFilter = LoadFilter & "标注 = True"
End If
If e.Form.Controls("未标注").Checked = True ' 如果付款状态选择了"未付"
    If LoadFilter >"" Then
        LoadFilter = LoadFilter & " And "
    End If
    LoadFilter = LoadFilter & "(标注 = False Or 标注 Is Null)"
End If
If LoadFilter > "" Then
    DataTables("服装资料表").LoadFilter = LoadFilter
    DataTables("服装资料表").Load()
End If

以下是引用tuohai在2017/11/16 15:32:00的发言：

列名 'True' 无效。

把 true 改成 1，把 false 改成 0

If e.Form.Controls("标注").Checked = True ' 如果付款状态选择了"已付"
    If LoadFilter >"" Then
        LoadFilter = LoadFilter & " And "
    End If
    LoadFilter = LoadFilter & "标注 = 1"
End If
If e.Form.Controls("未标注").Checked = True ' 如果付款状态选择了"未付"
    If LoadFilter >"" Then
        LoadFilter = LoadFilter & " And "
    End If
    LoadFilter = LoadFilter & "(标注 = 0 Or 标注 Is Null)"
End If

loadFilter = loadFilter & "标注 = 0 Or 标注 Is Null"

改成

loadFilter = loadFilter & "(标注 = 0 Or 标注 Is Null)"

有什么问题？标注为false或者标注为空的数据显示出来啊。

主题：关于后台筛选，这段代码的问题究竟在哪里？