- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 组合框和日期输入框如何结合实现查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79660)
-- 发布时间：2016/1/7 1:03:00
-- 组合框和日期输入框如何结合实现查询
有一个报价单，办事处和客户用的是组合框
办事处控件
enter:
e.Sender.ComboList = Tables("输出excel_bjd").DataTable.GetComboListString("办事处", Tables("输出excel_bjd").Filter)
SelectedIndexChanged:
Tables("输出EXCEL_bjd").Filter = "办事处 = \'" & e.Sender.text & "\'"
客户名称控件
enter:
e.Sender.ComboList = Tables("输出excel_bjd").DataTable.GetComboListString("客户名称", Tables("输出excel_bjd").Filter)
SelectedIndexChanged:
Tables("输出EXCEL_bjd").Filter = "客户名称 = \'" & e.Sender.text & "\'"
通过以上筛选，可以实现指定办事处的指定客户。
现在加入两个日期输入框
分别为startdate和enddate,要在刚才筛选的基础上再筛选出指定日期范围内订单，该如何写click代码？
-- 发布时间：2016/1/7 1:07:00
--
如图：
此主题相关图片如下：qq图片20160107004937.png
-- 发布时间：2016/1/7 1:09:00
--
用了帮助文件中的代码，但是日期筛选后上面的组合框筛选又无效了。
-- 发布时间：2016/1/7 8:24:00
--
组合多个条件 http://www.foxtable.com/help/topics/0448.htm
参考一下：
Dim t1 As String = Forms("窗口1").Controls("ComboBox1").text
Dim filter As String
If t1 > "" Then
filter = "办事处 = \'" & t1 & "\'"
End If
Dim d1 As Date = Forms("窗口1").Controls("DateTimePicker1").Value
If filter > "" Then
filter = filter & " and "
End If
filter = filter & "日期 > \'" & d1.Date & "\'"
Tables("输出EXCEL_bjd").Filter = filter
-- 发布时间：2016/1/7 11:21:00
--
非常感谢，参考您的语句，解决了困扰的问题。只是这个里面filter变量作为筛选的用法还不理解。能解释一下就好了。
-- 发布时间：2016/1/7 11:32:00
--
意思是，控件输入内容的，才合并生成条件。连接成如
"列名=\'\' and 列名 = \'\' and 列名 = \'\'"
这样的条件