主题：请教如何解决Powerpoint文件中我的问题

Dim filter As String = "1=1"
Dim tbl As Table = Tables("出入库-批号输入_Table1")

Dim txt As String = e.Form.Controls("TextBox1").Text
If txt > "" Then
    txt = "'%" & txt & "%'"
    filter = filter & " and (物料编号 Like " & txt & " Or 物料名称 Like " & txt & ")"
End If

txt = e.Form.Controls("comboBox1").Text
If txt > "" Then
    txt = "'%" & txt & "%'"
    filter = filter &" And 出入 Like " & txt
End If

tbl.filter =filter