| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 在菜单中设计一个模糊筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14983) |
| -- 作者：kevin -- 发布时间：2011/12/8 22:15:00 -- 在菜单中设计一个模糊筛选 以下是在窗体中设计的模糊筛选代码。我希望在菜单中也能达到这个效果，代码应该如何写？ Dim txt As String = e.Form.Controls("TextBox1").TextDim 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、公司名称、地址、联系人这四列中，任何一列包括输入内容的行。 |
| -- 作者：czy -- 发布时间：2011/12/8 22:28:00 -- 大概是这样子吧
Dim txt As String = RibbonTabs("功能区1")("功能组1")("组合框1").text \'为菜单自定义组合框
|