求助，下面这个代码筛选结果出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，下面这个代码筛选结果出错

共有2437人关注过本帖树形打印复制链接主题：求助，下面这个代码筛选结果出错

jjjeyes

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：305 积分：2695 威望：0 精华：0 注册：2011/10/29 16:26:00

求助，下面这个代码筛选结果出错 发帖心情

Post By：2018/12/23 22:41:00 [只看该作者]

Dim Filter As String

Dim sts() As String = {"A列","B列","C列","D列"}

Dim tbl As Table = Tables("测试成绩表")

If e.Form.Controls("全部").Checked = True ' 如果状态选择了"全部"

tbl.DataTable.loadFilter = ""

tbl.DataTable.load

End If

If e.Form.Controls("未测完").Checked = True ' 如果状态选择了"未测完"

For Each st As String In sts

tbl.DataTable.loadFilter = "[" & st & "] Is Null"

tbl.DataTable.load

End If

If e.Form.Controls("免测").Checked = True ' 如果状态选择了"免测"

tbl.DataTable.LoadFilter = "[备注] = '免测'"

tbl.DataTable.load

End If

以上这段代码，本来是为了检查如果"A列","B列","C列","D列"任何一列为空就筛选出来。但遇到“A列”为空，后面列如果有值，反而不能筛选出来。

请问如何纠正这段代码？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/23 22:59:00 [只看该作者]

Dim Filter As String
Dim sts() As String = {"A列","B列","C列","D列"}
Dim tbl As Table = Tables("测试成绩表")
If e.Form.Controls("全部").Checked = True ' 如果状态选择了"全部"
    tbl.DataTable.loadFilter = ""
    tbl.DataTable.load
ElseIf e.Form.Controls("未测完").Checked = True ' 如果状态选择了"未测完"
    Dim str As String = "1=2"
    For Each st As String In sts
        str &= " or [" & st & "] Is Null"
    Next
    tbl.DataTable.loadFilter = str
    tbl.DataTable.load
ElseIf e.Form.Controls("免测").Checked = True ' 如果状态选择了"免测"
    tbl.DataTable.LoadFilter = "[备注] = '免测'"
    tbl.DataTable.load
End If