主题：[求助]窗口表的combobox筛选代码

Dim dt As Table = e.Form.controls("Tableblitem").Table
Dim H As String = e.Form.controls("combobox").value
Dim Filter As String
Select Case  H

    Case "张三"
        Filter = "'H1'"
    Case "李四"
        Filter = "'H2','H3','H4'"

    Case "王五"
        Filter = "'H5'"
End Select

e.form.controls("Tablelablist").Table.Filter = "ptype in (" & filter & ")"