Foxtable(狐表)用户栏目专家坐堂 → 组合框和日期输入框如何结合实现查询


  共有2442人关注过本帖树形打印复制链接

主题:组合框和日期输入框如何结合实现查询

帅哥哟,离线,有人找我吗?
xujie80
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
组合框和日期输入框如何结合实现查询  发帖心情 Post By: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代码?

 回到顶部
帅哥哟,离线,有人找我吗?
xujie80
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
  发帖心情 Post By:2016/1/7 1:07:00 [只看该作者]

如图:
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160107004937.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
xujie80
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
  发帖心情 Post By:2016/1/7 1:09:00 [只看该作者]

用了帮助文件中的代码,但是日期筛选后上面的组合框筛选又无效了。

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By: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 

 回到顶部
帅哥哟,离线,有人找我吗?
xujie80
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:350 积分:3412 威望:0 精华:0 注册:2015/5/12 15:33:00
  发帖心情 Post By:2016/1/7 11:21:00 [只看该作者]

非常感谢,参考您的语句,解决了困扰的问题。只是这个里面filter变量作为筛选的用法还不理解。能解释一下就好了。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/7 11:32:00 [只看该作者]

意思是,控件输入内容的,才合并生成条件。连接成如

 

"列名='' and 列名 = '' and 列名 = ''"

 

这样的条件


 回到顶部