If User.IsRole("经理") = False Then
Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and (" & n事务对象 & "='" & user.name & "' or " & n公开 & "= -1 or ','+" & n公开部门 & "+',' like '%," & user.group & ",%' or ','+" & n公开个人 & "+',' like '%," & user.name & ",%' )" 'SQL Server数据源
Else
Filter = n事务时间 & ">='" & _表首 & "' and " & n事务时间 & "<='" & _表尾 & "' and (" & n事务部门 & "='" & user.group & "' or " & n公开 & "= -1 or ','+" & n公开部门 & "+',' like '%," & user.group & ",%' or ','+" & n公开个人 & "+',' like '%," & user.name & ",%' )" 'SQL Server数据源
End If
End If
End If
加好友 
发短信
Post By：2025/5/19 11:46:00 [显示全部帖子]
