以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用户权限  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132161)
--  作者：13775189031
--  发布时间：2019/3/15 10:47:00
--  用户权限
如何同时实现下面的代码
第二段代码安分组可以实现，第一段实现不了，“庄斌”分组不是在“辅机”


If User.Name = "庄斌" Then
    DataTables("采购管理台账").LoadFilter = "采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
Else
    DataTables("采购管理台账").LoadFilter =  ""
End If
DataTables("采购管理台账").Load()

If User.group = "辅机" Then
    DataTables("采购管理台账").LoadFilter = "采购计划管理_需求部门 = \'" & User.Group & "\'"
Else
    DataTables("采购管理台账").LoadFilter = ""
End If
DataTables("采购管理台账").Load()
--  作者：有点甜
--  发布时间：2019/3/15 10:59:00
--  

Dim filter As String = "1=1"
If User.Name = "庄斌" Then
    filter = " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If

If User.group = "辅机" Then
    filter &= " and 采购计划管理_需求部门 = \'" & User.Group & "\'"   
End If
DataTables("采购管理台账").LoadFilter = filter
DataTables("采购管理台账").Load()
--  作者：13775189031
--  发布时间：2019/3/15 11:42:00
--  
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：加载[采购管理台账]失败!
详细错误信息：
语法错误 (操作符丢失) 在查询表达式 \'( and 采购计划管理_招标采购负责人 = \'庄斌\')\' 中。
--  作者：有点甜
--  发布时间：2019/3/15 11:46:00
--  

改成

 

Dim filter As String = "1=1"
If User.Name = "庄斌" Then
    filter &= " and 采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If

If User.group = "辅机" Then
    filter &= " and 采购计划管理_需求部门 = \'" & User.Group & "\'"   
End If
DataTables("采购管理台账").LoadFilter = filter
DataTables("采购管理台账").Load()