| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 菜单方案代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7809) |
| -- 作者：wqc360 -- 发布时间：2010/8/7 21:09:00 -- 菜单方案代码 Dim Val As String = RibbonTabs("数据库")("查询信息")("图号")("图号").Text
我有一个组合框RibbonTabs("数据库")("查询信息")("列名") 组合框能选出我想要的列名（但我不想光标移动到该列），以上代码怎样改可实现当组合框为空时，按以上代码执行，有字符时，按列名=组合框中字符进行筛选，谢谢 |
| -- 作者：czy -- 发布时间：2010/8/7 21:39:00 -- 没看明白，组合框为空还按上面的代码执行，能筛选出东东吗？ |
| -- 作者：wqc360 -- 发布时间：2010/8/7 21:58:00 -- 对不起，是我没说清楚。上面代码是工具栏的按钮代码，图号是工具栏的文本框，列名是工具栏的组合框，我是想在工具栏文本框输入要查询的字符，组合框默认空，点按钮，筛选出图号包含文本框的行，如组合框列名输入当前表的列名，则筛选出组合框名称列的包含文本框的行。谢谢C版 |
| -- 作者：czy -- 发布时间：2010/8/7 22:13:00 -- Dim Val As String = RibbonTabs("数据库")("查询信息")("图号")("图号").Text Dim Val1 As String = RibbonTabs("数据库")("查询信息")("列名").Text If Val <> "" Then If RibbonTabs("数据库")("查询信息")("列名").Text <> "" Then CurrentTable.Filter = Val1 & " Like \'*" & Val & "*\'" Else CurrentTable.Filter = "[图号] Like \'*" & Val & "*\'" End If End If |
| -- 作者：wqc360 -- 发布时间：2010/8/7 22:41:00 -- CurrentTable.Filter = Val1 & " Like \'*" & Val & "*\'" 为什么不是： CurrentTable.Filter = "Val1 & Like \'*" & Val & "*\'" 为什么还要加一个& 后天测试一下，谢谢C版 |
| -- 作者：czy -- 发布时间：2010/8/7 23:14:00 -- 以下是引用wqc360在2010-8-7 22:41:00的发言：
CurrentTable.Filter = Val1 & " Like \'*" & Val & "*\'" 为什么不是： CurrentTable.Filter = "Val1 & Like \'*" & Val & "*\'" 为什么还要加一个& 后天测试一下，谢谢C版
这个我就不解释了，看看帮助中的动态合成表达式。 |
| -- 作者：qtcks -- 发布时间：2010/8/8 8:31:00 -- 参考··· |