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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分级筛选

共有2140人关注过本帖树形打印复制链接主题：分级筛选

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

分级筛选

Post By：2018/5/31 11:18:00 [显示全部帖子]

能帮忙看看这段代码吗？

If e.Form.Controls("ComboBox101").Text = DataTables("产品库").GetComboListString("产品_类别") Then

e.Form.Controls("ComboBox1").ComboList = DataTables("产品库").GetComboListString("拆分_参数A") '输入时提供列有的数据

End If

就是ComboBox1显示的是ComboBox101已经选定了的行里面字符，

yangwenghd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/5/31 12:04:00 [显示全部帖子]

e.Form.Controls("ComboBox2").ComboList = DataTables("产品库").GetComboListString("拆分_参数B", "产品_类别='" & e.Form.Controls("ComboBox101").Text & "'", "拆分_参数A='" & e.Form.Controls("ComboBox1").Text & "'")

为什么多加一个就不能用了呢，感谢感谢

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2018/5/31 12:25:00 [显示全部帖子]

Tables("产品库窗口_Table1").Filter = "产品_类别 Like '%" & e.Form.Controls("ComboBox101").Text & "%'" And "拆分_参数A Like '%" & e.Form.Controls("ComboBox1").Text & "%'" ' 筛选出行\

为什么这个两个筛选不能用呢，感谢感谢

yangwenghd

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2701 积分：17999 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2019/9/7 18:28:00 [显示全部帖子]

老师能帮帮看看这个吗？哎又玩不转了，感谢感谢

想把事件类型列为工作和本周工作内容列没有字符的条件加上去，感谢感谢

e.Form.Controls("ComboBox3").ComboList = DataTables("计划表").GetComboListString("项目流程", "项目名称='" & e.Form.Controls("ComboBox2").Text & "' and "事件类型='" & "工作" & "'and 本周工作内容='" & ("") & "'")