Case "checkedcomboBox1"
Dim txt As String = e.Form.Controls("checkedcomboBox1").Text
If txt = "" Then
tbl.DataTable.loadFilter = ""
tbl.DataTable.load()
Else
dim filter = "公司名称 in ('" & txt.Replace(",","','") & "')"
'txt = "'%" & txt & "%'"
'tbl.DataTable.loadFilter = "公司名称 Like " & txt
tbl.DataTable.loadFilter =filter
tbl.DataTable.load()
End If