标题：在菜单中设计一个模糊筛选

1楼

kevin 发表于：2011/12/8 22:15:00

以下是在窗体中设计的模糊筛选代码。我希望在菜单中也能达到这个效果，代码应该如何写？

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'*" & txt & "*'"
    tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

这样我们在文本框中输入任何内容，Table就会自动进行模糊筛选，显示客户ID、公司名称、地址、联系人这四列中，任何一列包括输入内容的行。

2楼

czy 发表于：2011/12/8 22:28:00

大概是这样子吧

Dim txt As String = RibbonTabs("功能区1")("功能组1")("组合框1").text '为菜单自定义组合框
Dim tbl As Table = Tables("表名") '实际表名
If txt = "" Then
tbl.Filter = ""
Else
txt = "'*" & txt & "*'"
tbl.Filter = "客户ID Like " & txt & " Or 公司名称 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If

共2 条记录, 每页显示 10 条, 页签: [1]