以文本方式查看主题

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

--  作者:yangwenghd
--  发布时间: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已经选定了的行里面字符,


--  作者:有点甜
--  发布时间:2018/5/31 11:41:00
--  
e.Form.Controls("ComboBox1").ComboList = DataTables("产品库").GetComboListString("拆分_参数A", "产品_类别=\'" & e.Form.Controls("ComboBox101").Text & "\'")
--  作者:yangwenghd
--  发布时间: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 & "\'")
为什么多加一个就不能用了呢 ,感谢 感谢 

--  作者:有点甜
--  发布时间:2018/5/31 12:15:00
--  
e.Form.Controls("ComboBox2").ComboList = DataTables("产品库").GetComboListString("拆分_参数B", "产品_类别=\'" & e.Form.Controls("ComboBox101").Text & "\' and 拆分_参数A=\'" & e.Form.Controls("ComboBox1").Text & "\'")
--  作者:yangwenghd
--  发布时间:2018/5/31 12:25:00
--  
Tables("产品库窗口_Table1").Filter = "产品_类别 Like \'%" & e.Form.Controls("ComboBox101").Text & "%\'" And "拆分_参数A Like \'%" & e.Form.Controls("ComboBox1").Text & "%\'"   \'  筛选出行\\

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

--  作者:有点甜
--  发布时间:2018/5/31 12:36:00
--  
Tables("产品库窗口_Table1").Filter = "产品_类别 Like \'%" & e.Form.Controls("ComboBox101").Text & "%\' And 拆分_参数A Like \'%" & e.Form.Controls("ComboBox1").Text & "%\'"
--  作者:yangwenghd
--  发布时间:2019/9/7 18:28:00
--  
老师 能帮帮看看这个吗? 哎 又玩不转了,感谢 感谢 
想把事件类型列 为工作和本周工作内容列没有字符的条件加上去,感谢 感谢 

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



--  作者:linyunu
--  发布时间:2019/9/7 18:36:00
--  
e.Form.Controls("ComboBox3").ComboList = DataTables("计划表").GetComboListString("项目流程", "项目名称=\'" & e.Form.Controls("ComboBox2").Text & "\' and 事件类型=\'工作\' and 本周工作内容=\'\'"
--  作者:yangwenghd
--  发布时间:2019/9/7 19:29:00
--  
感谢 感谢 ,能在请教一下吗?
e.Form.Controls("ComboBox2").ComboList = DataTables("计划表").GetComboListString("项目名称", "事件类型=\'工作\' and 本周工作内容=\'\'")
为什么去掉一个条件就不对了呢,感谢 

--  作者:yangwenghd
--  发布时间:2019/9/7 20:07:00
--  
感谢 这个还是显现不出来呢,能帮忙在看看吗? 也没有报警,就是点击下按钮的时候没有显示出可以选的内容。