主题：模糊筛选辅助录入

我在用模糊筛选辅助录入的时候，如果内容遇到“*”系统就会卡死。我的筛选代码如下：

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 & "*'"
            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

 

 

例子是帮助中的自定义录入之三，如果单元格中输入带“*”的内容进行模糊筛选就会报错

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:系统.foxdb