Dim txt As String = e.Form.Controls("输入内容").Text
Dim tbl As Table = Tables("采购价格_采购订单明细表")If txt = "" Then tbl.Filter = ""Else txt = "'%" & txt & "%'" tbl.Filter = "采购订单明细号 Like " & txt & " Or 供应商名称 Like " & txt & " Or 材料编号 Like " & txt & " Or 材料名称 Like " & txt & " Or 规格型号 Like " & txt End If