Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询


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

主题：查询
帅哥哟，离线，有人找我吗？
liuandwang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：1039 威望：0 精华：0 注册：2018/4/28 23:27:00 		查询  发帖心情 Post By：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订单中张三完成了外框和安装，查询时不能显示两个同样的订单。

我看了帮助文件，目前水平只能实现一项的查询，三项同时查询还不会，

哪位老师帮忙看看，求按钮代码

非常感谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：1039 威望：0 精华：0 注册：2018/4/28 23:27:00 		  发帖心情 Post By：2020/7/12 15:51:00 [只看该作者]

蓝老师：
Dim Filter As String = "1=2"
其中  "1=2"  是什么意思
 回到顶部
帅哥哟，离线，有人找我吗？
liuandwang
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：1039 威望：0 精华：0 注册：2018/4/28 23:27:00 		  发帖心情 Post By：2020/7/12 16:41:00 [只看该作者]

外框完成人员对应外框完成时间，内叶完成人员对应内叶完成时间
对单独的外框完成人员或内叶人员的查询在帮助文件中能找到，但同时查询外框和内叶两项或多项时，不会做了。
我尝试了几天，Filter = Filter & "or ("    后序代码没做出来
再麻烦蓝老师，代码再具体点，

非常感谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/12 20:36:00 [只看该作者]

请上传具体实例说明问题

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询