| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 选中listbox的值作为筛选条件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107337) |
| -- 作者：蓝蚂蚁 -- 发布时间：2017/9/26 10:34:00 -- 选中listbox的值作为筛选条件 窗口中有3个listbox，分别为：listbox1、listbox2、listbox3。 根据这三个listbox里面选中的值作为筛选条件，请问代码如何编写？ Dim Filter As String Filter = " 科室=\'" & e.form.controls("ListBox1").value &"\'" And " 购进科室=\'" & e.form.controls("ListBox2").value &"\'" And " 标识=\'" & e.form.controls("ListBox3").value &"\'" If Filter > "" Then Tables("窗口1_Table2").Filter = Filter End If 这段代码不行，请老师指点，谢谢！
|
| -- 作者：有点甜 -- 发布时间：2017/9/26 10:44:00 -- Dim Filter As String Filter = " 科室=\'" & e.form.controls("ListBox1").Selectedvalue & "\' And 购进科室=\'" & e.form.controls("ListBox2").Selectedvalue & "\' And 标识=\'" & e.form.controls("ListBox3").Selectedvalue & "\'" If Filter > "" Then Tables("窗口1_Table2").Filter = Filter End If |
| -- 作者：蓝蚂蚁 -- 发布时间：2017/9/26 11:18:00 -- 谢谢 非常感谢 |