主题：模糊筛选辅助录入

If e.Col.Name = "产品编号" Then '如果编辑的是客户ID列

    If e.Col.DroppedDown Then '如果下拉窗口已经打开

        Dim tbl As Table = Tables("料号_table1") 

        If e.Text = "" Then '如果内容为空

            tbl.Filter = "" '显示所有产品

        Else '否则根据输入内容进行模糊筛选

            Dim txt As String = "'*" & e.Text.Replace("*", "[*]") & "*'"

            tbl.Filter = "料号 Like " & txt & " Or 品名 Like " & txt & " Or 规格CM Like " & txt & " Or 客户名称 Like " & txt & " Or 工程单号 Like " & txt  & " Or 材料名称 Like " & txt 

        End If

    End If

End If