看22楼,对应改一下LoadUserSetting的代码
Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'") If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then DataTables("需求明细表").LoadFilter = "" Else If user.Group = "录入" Then If druser.Isnull("新负责人邮箱") Then DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "'" ' Or 流程 = '" & user.Group & "'" Else DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱").Trim().Replace(",", "','") & "') " 'or 流程 = '" & user.Group & "'" End If With DataTables("需求明细表") .LoadTop = 25 .LoadPage = 0 .Load() End With Else DataTables("需求明细表").LoadFilter = "流程 = '" & user.Group & "'" End If End If DataTables("需求明细表").Load()
|