|
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
|
加好友 
发短信
Post By：2018/12/23 22:59:00 [只看该作者]
