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
Next
End If
If e.Form.Controls("免测").Checked = True ' 如果状态选择了"免测"
tbl.DataTable.LoadFilter = "[备注] = '免测'"
tbl.DataTable.load
End If
以上这段代码，本来是为了检查如果"A列","B列","C列","D列"任何一列为空就筛选出来。但遇到“A列”为空，后面列如果有值，反而不能筛选出来。
请问如何纠正这段代码？
加好友 
发短信
Post By：2018/12/23 22:41:00 [显示全部帖子]
