主题：求助筛选代码

想要筛选出第一课时或第二课时、、、，以此类推，他们○×△$的值，代码如何写？目前代码：

Dim khmc As WinForm.TextBox = e.Form.Controls("TextBox5")

Dim kh As WinForm.TextBox = e.Form.Controls("TextBox7")

Dim filter As String

If htah.Value <> "" Then

If filter > "" Then

filter = filter & " And "

End If

filter = "内含科目 Like '%" & htah.Text & "%' "

End If

If kh.Value <> "" Then

If filter > "" Then

filter = filter & " And "

End If

filter = "班级编号 Like '%" & kh.Text & "%' "

End If

If khmc.Value <> "" Then

If filter > "" Then

filter = filter & " And "

End If

filter = "学员姓名 Like '%" & khmc.Text & "%'"

End If

If Filter > "" Then

Tables("学员选班").Filter =  filter

End If

○

×

△

$

此主题相关图片如下：1.jpg


此主题相关图片如下：2.png


此主题相关图片如下：3.jpg

 例子发上来。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:昆山市多丽培训.rar

在窗口"点名提示中"

 哪个窗口，哪个表，什么效果？

代码

 

Dim ks As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim f As String = ""
If ks.Text > "" Then
    Dim kss() As String = {"第一课时", "第二课时","第三课时"}
    For Each s As String In kss
        f &= s & " = '" & ks.Text & "' or "
    Next
    f = "(" & f.SubString(0, f.Length - 3) & ")"
    msgbox(f)
End If
e.Form.Controls("Table3").Table.Filter = f

此主题相关图片如下：5.jpg

我的想法是输入”第一课时“，或第二课时、、然后那一列的值为○×△$的都被筛选出来出来~~

 这个意思？

 

Dim ks As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim f As String = "1=1"
If ks.Text > "" Then
    f &= " and " & ks.Text & " in ('○', '×', '△', '$')"
End If
msgbox(f)
e.Form.Controls("Table3").Table.Filter = f