| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 查询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151785) |
| -- 作者：liuandwang -- 发布时间：2020/7/3 11:47:00 -- 查询 老师们，帮帮忙 在窗口中放置一个ComboBox，用以输入操作人员名称。增加两个DateTimePicker，输入起始时间和终止时间。再设一个按钮，以查询某个时间段操作人员所完成的订单。表A具体如下： 订单编号 外框完成人员 外框完成时间 内叶完成人员 内叶完成时间 安装完成人员 安装完成时间 01 张三 2019-12-05 李四 2020-05-07 张三 2020-05-09 02 王五 2020-05-06 李四 2020-05-07 张三 2020-05-09 查询时，按时段，外框、内叶、安装只要有一项是查询的操作人员完成的，就显示出来， 不能出现重复，如01订单中张三完成了外框和安装，查询时不能显示两个同样的订单。 我看了帮助文件，目前水平只能实现一项的查询，三项同时查询还不会， 哪位老师帮忙看看，求按钮代码 非常感谢
|
| -- 作者：有点蓝 -- 发布时间：2020/7/3 12:02:00 -- 参考：http://www.foxtable.com/webhelp/topics/1058.htm，比如 Dim str() As String = {"外框","内叶","安装"} Dim Filter As String = "1=2" For Each s As String In str Filter = Filter & "or (" With e.Form.Controls("ComboBox1") If .Value IsNot Nothing Then Filter = s & "完成人员 = \'" & .Value & "\'" End If End With With e.Form.Controls("StartDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter &s & "完成时间 >= #" & .Value & "#" End If End With With e.Form.Controls("endDate") If .Value IsNot Nothing Then If Filter >"" Then Filter = Filter & " And " End If Filter = Filter &s & "完成时间 <= #" & .Value & "#" End If End With Filter = Filter & ")" Next msgbox(Filter ) …… |
| -- 作者：liuandwang -- 发布时间：2020/7/12 15:51:00 -- 蓝老师： Dim Filter As String = "1=2" 其中 "1=2" 是什么意思
|
| -- 作者：liuandwang -- 发布时间：2020/7/12 16:41:00 -- 外框完成人员对应外框完成时间，内叶完成人员对应内叶完成时间 对单独的外框完成人员或内叶人员的查询在帮助文件中能找到，但同时查询外框和内叶两项或多项时，不会做了。 我尝试了几天，Filter = Filter & "or (" 后序代码没做出来 再麻烦蓝老师，代码再具体点， 非常感谢
|
| -- 作者：有点蓝 -- 发布时间：2020/7/12 20:36:00 -- 请上传具体实例说明问题 |