专家坐堂-组别异常Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=162239)

--  作者：nuoyan89
--  发布时间：2021/4/9 20:10:00
--  组别异常

老师，请帮忙看看红色部份的代码，异常如图，谢谢！

    e.Form.controls("销售产品报价").Table.DataTable.LoadPage = 0
    e.Form.controls("销售产品报价").Table.DataTable.LoadFilter = " _UserGroup Like [部门] and " & iif(filter>"", filter, "1=1")
    e.Form.controls("销售产品报价").Table.DataTable.Load

此主题相关图片如下：1.jpg

--  作者：有点蓝
--  发布时间：2021/4/10 9:38:00
--
e.Form.controls("销售产品报价").Table.DataTable.LoadFilter = "[部门] = \'" & _UserGroup & "\' " & iif(filter>"", " and " & filter, "")

--  作者：nuoyan89
--  发布时间：2021/4/10 12:40:00
--

老师，这个我试过，我的_UserGroup 这个组别中会有多个名称，比如：我的登录名对应的组别里会有多个身份，不能是等于，请帮忙看看，谢谢

--  作者：有点蓝
--  发布时间：2021/4/10 13:33:00
--
e.Form.controls("销售产品报价").Table.DataTable.LoadFilter = "\'," & _UserGroup & ",\' like \'%,\' + [部门] + \',%\'" & iif(filter>"", " and " & filter, "")

--  作者：nuoyan89
--  发布时间：2021/6/1 22:20:00
--

老师，目前登录的这个人不是组别里没有他，但他还是能查询，如图

此主题相关图片如下：1.jpg

If _UserGroup Like "*管理员*" = False Then
    e.Form.controls("销售报价合同").Table.DataTable.LoadPage = 0
    e.Form.controls("销售报价合同").Table.DataTable.LoadFilter = "\'," & _UserGroup & ",\' like \'%,\' + [部门] + \',%\'" & iif(filter>"", " and " & filter, "")
    e.Form.controls("销售报价合同").Table.DataTable.Load
Else
    e.Form.controls("销售报价合同").Table.DataTable.LoadPage = 0
    e.Form.controls("销售报价合同").Table.DataTable.LoadFilter = Filter
    e.Form.controls("销售报价合同").Table.DataTable.Load
End If

--  作者：有点蓝
--  发布时间：2021/6/1 22:38:00
--
msgbox(_UserGroup)
msgbox("\'," & _UserGroup & ",\' like \'%,\' + [部门] + \',%\'" & iif(filter>"", " and " & filter, ""))

--  作者：nuoyan89
--  发布时间：2021/8/20 14:49:00
--

老师，如图异常，请帮忙看看，谢谢

With DataTables("生产异常明细_生产过程明细")
    .LoadFilter = "([当前状态] = \'待审核\' or [当前状态] = \'驳回\' or [当前状态] = \'转交\') And "\'," & _UserGroup & ",\' like \'%,\' + [处理部门] + \',%\'" \'一定要清除加载条件
    .LoadTop = 1000
    .LoadPage = 0
    .Load()
End With

此主题相关图片如下：1.jpg

--  作者：有点蓝
--  发布时间：2021/8/20 14:51:00
--
.LoadFilter = "([当前状态] = \'待审核\' or [当前状态] = \'驳回\' or [当前状态] = \'转交\') And \'," & _UserGroup & ",\' like \'%,\' + [处理部门] + \',%\'"

--  作者：nuoyan89
--  发布时间：2021/8/20 15:01:00
--

老师，我这个组别里包含有物资部，但是还是显示不出来，如图1

此主题相关图片如下：1.jpg

--  作者：有点蓝
--  发布时间：2021/8/20 15:13:00
--
下面代码弹出什么内容？
msgbox(_UserGroup)
msgbox("([当前状态] = \'待审核\' or [当前状态] = \'驳回\' or [当前状态] = \'转交\') And  \'," & _UserGroup & ",\' like \'%,\' + [处理部门] + \',%\'")