Dim txt1 As String = e.Form.Controls("comboBox1").Text
Dim tbl As Table = Tables("入库单父子表弹窗_Table1")
If txt1 = "" Then
tbl.Filter = ""
Else
txt1 = "'%" & txt1 & "%'"
tbl.Filter = "厂商 Like " & txt1
End If
Dim txt2 As String = e.Form.Controls("comboBox2").Text
Dim tb2 As Table = Tables("入库单父子表弹窗_Table1")
If txt2 = "" Then
tb2.Filter = ""
Else
txt2 = "'%" & txt2 & "%'"
tb2.Filter = "采购员 Like " & txt2
End If