模糊筛选代码:
Dim txt As String = e.Form.Controls("模糊查询").TextDim tbl As Table = Tables("材料窗口_材料表")If txt = "" Then tbl.Filter = ""Else txt = "'%" & txt & "%'" tbl.Filter = "材料分类 Like " & txt & " Or 产品材料 Like " & txtEnd If
如果表里没有想要查询的内容, 就弹出