Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 加载条件


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

主题：[求助] 加载条件
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		[求助] 加载条件  发帖心情 Post By：2018/5/1 7:24:00 [只看该作者]

老师，用户管理为外部数据表  如何加载与 张三 为同一个分组 group 的行。请指教，谢谢！


[此贴子已经被作者于2018/5/1 9:48:27编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/1 18:59:00 [只看该作者]

1、你得到group的值了没有？

 

2、得到以后，直接设置条件，如 "分组 = '" & group值 & "'"
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2018/5/2 5:20:00 [只看该作者]

老师， 我用的系统自带登录，外部表，Name type Config .
                    For Each u As UserInfo In users
                        If u.Name = DecryptText(e.Cookies("zxy"),"123456","123456") Then
                            For Each u1 As UserInfo In users
                                If u1.group = u.group Then

                                    手机端加载和当前用户为同一分组 的 用户
[此贴子已经被作者于2018/5/2 5:20:40编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/5/2 8:42:00 [只看该作者]

直接查询表即可，比如

 

Tables("表A").Filter = "config like '%" & 你的分组的值 & "%'"
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2018/7/2 11:01:00 [只看该作者]

老师，在 机构设置  表中有 科室主任 和分管领导 两列 科室主任多些。我想在请销假登记 表中 筛选 出确认审核 为false 职务是 科室主任 或者 中心领导 或者 两者都不是，但是请假天数 大于或等于三天 的行。谢谢！


    DataTables("机构设置").LoadFilter = "科室主任 is not null"
    DataTables(“机构设置").Load()
    For Each dr As DataRow In DataTables("机构设置").DataRows
        DataTables("请销假登记").LoadFilter = "确认审核 = '" & False & "' And 姓名 Like '%" & dr("科室主任") & "%' Or 确认审核 = '" & False & "' and 姓名 like '%" & dr("分管领导") & "%' or 确认审核 = '" & False & "' and 请假天数 >= 3 and 姓名 Not like '%" & dr("科室主任") & "%' or 确认审核 = '" & False & "' and 请假天数 >= 3 and 姓名 Not like '%" & dr("分管领导") & "%'"
        DataTables("请销假登记").Load()
    next
[此贴子已经被作者于2018/7/2 11:02:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/2 11:15:00 [只看该作者]

DataTables("机构设置").LoadFilter = "科室主任 is not null"
DataTables("机构设置").Load()

DataTables("请销假登记").LoadFilter = "确认审核 = false And (姓名 Like '%科室主任%' Or 姓名 like '%中心领导%') or 确认审核 = false and 请假天数 >= 3 "
DataTables("请销假登记").Load()
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2018/7/2 12:29:00 [只看该作者]

老师，得到的是 全部 确认审核 = Fasle 的行。
     (姓名 Like '%" & dr("科室主任") & "%' Or 姓名 like '%" & dr("分管领导") & "%') 好像没执行。


    DataTables("结构设置").LoadFilter = "科室主任 is not null"
    DataTables("结构设置").Load()
    For Each dr As DataRow In DataTables("结构设置").DataRows
        DataTables("请销假登记").LoadFilter = "确认审核 = '" & False & "' And (姓名 Like '%" & dr("科室主任") & "%' Or 姓名 like '%" & dr("分管领导") & "%') Or 确认审核 = '" & False & "' And 请假天数 >= 3 "
        DataTables("请销假登记").Load()
    Next
[此贴子已经被作者于2018/7/2 12:40:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/2 14:48:00 [只看该作者]

照抄代码啊

 

DataTables("机构设置").LoadFilter = "科室主任 is not null"
DataTables("机构设置").Load()

DataTables("请销假登记").LoadFilter = "确认审核 = false And (姓名 Like '%科室主任%' Or 姓名 like '%中心领导%') or 确认审核 = false and 请假天数 >= 3 "
DataTables("请销假登记").Load()
 回到顶部
帅哥哟，离线，有人找我吗？
zcgmxf
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1665 积分：14854 威望：0 精华：0 注册：2014/6/6 8:42:00 		  发帖心情 Post By：2018/7/2 14:57:00 [只看该作者]

老师，提示 false 列名无效 ，改成下面的，没有加载任何数据，但是请销假登记 这个表里面是绝对有符合条件的行的。

重新测试，只加载请假天数 大于等于 3 的行

DataTables("机构设置").LoadFilter = "科室主任 is not null"
DataTables("机构设置").Load()

DataTables("请销假登记").LoadFilter = "确认审核 = '" & False & "' And (姓名 Like '%科室主任%' Or 姓名 like '%中心领导%') or 确认审核 = '" & False & "' And 请假天数 >= 3 "
DataTables("请销假登记").Load()
[此贴子已经被作者于2018/7/2 15:02:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/2 16:27:00 [只看该作者]

DataTables("结构设置").LoadFilter = "科室主任 is not null"
DataTables("结构设置").Load()
Dim str As String = "1=2"
For Each dr As DataRow In DataTables("结构设置").DataRows
    str &= " or 确认审核 = 0 And (姓名 Like '%" & dr("科室主任") & "%' Or 姓名 like '%" & dr("分管领导") & "%')"
   
Next
str &= " Or 确认审核 = 0 And 请假天数 >= 3 "
DataTables("请销假登记").LoadFilter = str
DataTables("请销假登记").Load
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询