以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 加载条件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118375)

--  作者:zcgmxf
--  发布时间:2018/5/1 7:24:00
--  [求助] 加载条件
老师,用户管理为外部数据表  如何加载与 张三 为同一个分组 group 的行。请指教,谢谢!


[此贴子已经被作者于2018/5/1 9:48:27编辑过]

--  作者:有点甜
--  发布时间:2018/5/1 18:59:00
--  

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

 

2、得到以后,直接设置条件,如 "分组 = \'" & group值 & "\'"


--  作者:zcgmxf
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间:2018/5/2 8:42:00
--  

直接查询表即可,比如

 

Tables("表A").Filter = "config like \'%" & 你的分组的值 & "%\'"


--  作者:zcgmxf
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间: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
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间: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
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间: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