Dim lfl As String
Select Case e.DataTable.name
Case "考勤管理"
Select Case _userroles
Case "一般人员"
lfl="项目经理 ='" & _username & "' or 姓名 ='" & _username & "'"
Case "公司领导","担保管理","产值管理","物业管理"
lfl="姓名 ='" & _username & "'"
Case "部门干事","部门会计","部门领导","财务领导","生产领导","合同管理","体系管理"
lfl="部门名称 In (" & _usergroup & ")"
Case "审核人员","开发者","管理者"
lfl=""
End Select
Case Else
Return
End Select
If e.DataTable.LoadFilter = "" Then
e.DataTable.LoadFilter = lfl
ElseIf lfl>"" andalso e.DataTable.LoadFilter.IndexOf(lfl) < 0 Then
e.DataTable.LoadFilter = "(" & e.DataTable.Loadfilter & ") And (" & lfl & ")"
End If
考勤管理表有年度、月份、姓名，并按此分组加载，当没按下Ctrl键时，确实不能选择别人，只能选择自己，但当按下Ctrl键时，可以选择任何人。
加好友 
发短信
Post By：2019/2/12 16:34:00 [显示全部帖子]
