以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教：如何实现一输入框自动显示表的所有列名，当选择列名后，值输入框自动显示该列下的所有值，便于直接快速选择进行数据筛选？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51771)
--  作者：李孝春
--  发布时间：2014/6/3 10:44:00
--  求教：如何实现一输入框自动显示表的所有列名，当选择列名后，值输入框自动显示该列下的所有值，便于直接快速选择进行数据筛选？
求教：如何实现一输入框自动显示表的所有列名，当选择列名后，值输入框自动显示该列下的所有值，便于直接快速选择进行数据筛选？

图片点击可在新窗口打开查看此主题相关图片如下：00000.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:实例.zip


[此贴子已经被作者于2014-6-3 10:46:27编辑过]
--  作者：有点甜
--  发布时间：2014/6/3 12:09:00
--  

 参考这个例子

 

http://www.foxtable.com/help/topics/1134.htm

 
--  作者：李孝春
--  发布时间：2014/6/3 14:43:00
--  回复：（有点甜） 参考这个例子 http:/...
感谢有点甜老师 看了一下 还是没有达到实际效果 请多多指导 谢谢
--  作者：有点甜
--  发布时间：2014/6/3 14:47:00
--  
以下是引用李孝春在2014-6-3 14:43:00的发言：
感谢有点甜老师 看了一下 还是没有达到实际效果 请多多指导 谢谢

 

哪一步不会？
--  作者：李孝春
--  发布时间：2014/6/3 15:23:00
--  回复：（有点甜）
问题如图：
图片点击可在新窗口打开查看此主题相关图片如下：1111111.jpg
图片点击可在新窗口打开查看
实例地址：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信息发布调研文章20140522.table

[此贴子已经被作者于2014-6-3 15:23:15编辑过]
--  作者：有点甜
--  发布时间：2014/6/3 16:01:00
--  

 如下

  

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:信息发布调研文章20140522.rar

 
--  作者：李孝春
--  发布时间：2014/6/3 16:30:00
--  回复：（有点甜）运行效果错误如下
感谢有点甜老师 运行提示这个错误


图片点击可在新窗口打开查看此主题相关图片如下：2222222.jpg
图片点击可在新窗口打开查看


查询代码如下
Dim zd As RibbonMenu.ComboBox = RibbonTabs("信息发布调研文章管理系统").Groups("数据筛选").Items("ColList")
Dim cxz As RibbonMenu.TextBox = RibbonTabs("信息发布调研文章管理系统").Groups("数据筛选").Items("查询值")

If zd.Text = "稿件作者" Then
Tables("稿件投稿").Filter = "稿件作者 like \'*" & cxz.Text & "*\'"
Else
Tables("稿件投稿").Filter = "所在单位 like \'*" & cxz.Text & "*\'"
End If

If zd.Text = "媒体类型" Then
Tables("稿件投稿").Filter = "媒体类型 like \'*" & cxz.Text & "*\'"
End If

If zd.Text = "媒体名称" Then
Tables("稿件投稿").Filter = "媒体名称 like \'*" & cxz.Text & "*\'"
End If

If zd.Text = "年度" Then
Tables("稿件投稿").Filter = "年度 like \'*" & cxz.Text & "*\'"
End If
--  作者：有点甜
--  发布时间：2014/6/3 16:32:00
--  

 这句 Dim cxz As RibbonMenu.TextBox = RibbonTabs("信息发布调研文章管理系统").Groups("数据筛选").Items("查询值")

 

 改成 Dim cxz As RibbonMenu.ComboBox = RibbonTabs("信息发布调研文章管理系统").Groups("数据筛选").Items("查询值")
--  作者：李孝春
--  发布时间：2014/6/3 16:44:00
--  回复：（有点甜）运行效果错误如下
有点甜老师：
现在错误提示解决啦
但是当选择了某列并且对应显示选择了某个值后 查询得到的数据为空
比如我选择文件类型 然后选择调研 结果查询得到的内容是空白【只能稿件作者下面的可以进行查询】
求解！
[此贴子已经被作者于2014-6-3 16:45:50编辑过]
--  作者：有点甜
--  发布时间：2014/6/3 16:57:00
--  

筛选代码只需要这样写

 

Dim zd As RibbonMenu.ComboBox = RibbonTabs("信息发布调研文章管理系统").Groups("数据筛选").Items("ColList")
Dim cxz As RibbonMenu.ComboBox = RibbonTabs("信息发布调研文章管理系统").Groups("数据筛选").Items("查询值")

 

CurrentTable.Filter = zd.Text & " like \'*" & cxz.text & "*\'"