主题：在多值列中查找值

TextChanged事件

Dim val As String = e.Form.Controls("ComboBox1").Text
Dim fdr As DataRow = DataTables("表A").Find("第二列 = '发生' and (第一列 = '" & val & "' or 第一列 like '" & val & ",*' or 第一列 like '*," & val & ",*' or 第一列 Like '*," & val & "')")
If fdr IsNot Nothing Then
    e.Form.Controls("Label1").Visible = True
Else
    e.Form.Controls("Label1").Visible = False
End If