Dim zd As String = e.Form.Controls("ComboBox1").Text
Dim nr As String = e.Form.Controls("TextBox1").Text
Tables("表A").Filter = "convert(" & zd & ",'System.String') like '%" & nr & "%'"