专家坐堂-同时筛选Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  同时筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108858)

--  作者：yangwenghd
--  发布时间：2017/10/31 0:59:00
--  同时筛选
可以用两个 ComboBox筛选吗？
比如 ComboBox1 选择第一列的 a

红色代码表示 ComboBox1点选择的时候只筛选出投资参考表，第一列包含a的行，感谢感谢
e.Sender.ComboList = DataTables("投资参考").GetComboListString("类别")

比如ComboBox1选择a ，ComboBox2就要红色代码上多加一个筛选条件，提交是在第一列有a的行筛选。感谢感谢

--  作者：有点甜
--  发布时间：2017/10/31 8:41:00
--

参考

http://www.foxtable.com/webhelp/scr/1523.htm

--  作者：yangwenghd
--  发布时间：2017/11/3 22:54:00
--
Tables("投资学习窗口_Table1").Filter = "类别 Like \'%" & e.Form.Controls("ComboBox1").Text & "%\' And "流程 Like \'%" & e.Form.Controls("ComboBox2").Text
能帮忙看看这个吗？为什么不行呢感谢感谢

--  作者：有点蓝
--  发布时间：2017/11/3 23:02:00
--
"类别 Like \'%" & e.Form.Controls("ComboBox1").Text & "%\' And 流程 Like \'%" & e.Form.Controls("ComboBox2").Text & "%\'"

--  作者：yangwenghd
--  发布时间：2018/5/30 18:02:00
--
能帮忙看看这个吗？

此主题相关图片如下：1003.gif

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("型号")
2、在ComboBox2的Enter事件中加入代码：
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As string = e.Form.Controls("ComboBox1").Value
cmb.ComboList = DataTables("表A").GetComboListString("规格", "型号 = \'" & str & "\'")
3、最后在ComboBox3的Enter事件中加入代码：
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox2").Value
cmb.ComboList = DataTables("表A").GetComboListString("颜色", "规格 = \'" & str & "\'")

能帮忙看看这个吗？
就是筛选的时候是根据按钮筛选的输入，按钮在执行下面代码的时候是根据前面的ComboBox输入的内容筛选。
可以让他们依次筛选吗？比如类别是车刀片，参数A按下按钮的时候就是显示为类别为车刀片的行，后面以此内推。

此主题相关图片如下：qq截图20180530180109.png

[此贴子已经被作者于2018/5/30 18:02:24编辑过]

--  作者：有点甜
--  发布时间：2018/5/30 18:09:00
--

参考

http://www.foxtable.com/webhelp/scr/1058.htm

--  作者：yangwenghd
--  发布时间：2018/5/31 10:22:00
--

能帮忙看看这个吗？
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("ComboBox101").Value
cmb.ComboList = DataTables("产品库").GetComboListString("类别", "参数A = \'" & str & "\'")
就是红色代码点击下按钮筛选出的内容自在ComboBox101选定的行了

比如ComboBox101 选择产品列的“车刀片”，然后ComboBox1（就是写代码的这个按钮）按下按钮只显示产品列为车刀片的行，感谢感谢

--  作者：有点甜
--  发布时间：2018/5/31 11:31:00
--

cmb.ComboList = DataTables("产品库").GetComboListString("参数A", "类别 = \'" & str & "\'")