Dim Filter As String
If User.IsRole("车管员") Then
Filter = "进度 = '1A'" '进度一开始
Else If User.IsRole("部门负责人") Then
Filter = "进度 = '2A' And User.group = 所属部门" '进度一结束或进度二开始
Else If User.IsRole("生产车查验员") Then
Filter = "进度 = '3A'" '进度二结束或进度三开始
Else If User.IsRole("车辆维修审核员") Then
Filter = "进度 = '4A'" '进度三结束或进度四开始
Else If User.IsRole("车辆管理部门负责人") Then
Filter = "进度 = '5A'" '进度四结束或进度五开始
Else If User.IsRole("维修厂审核员") Then
Filter = "进度 = '6A'" '进度五结束或进度六开始
Else If User.IsRole("对账审核员") Then
Filter = "进度 = '7A'" '进度六结束或进度七开始
Else If User.IsRole("系统管理员")
Filter = "" '其他用户加载全部记录
Else
End If
DataTables("车辆维修申请表").LoadFilter = Filter
DataTables("车辆维修申请表").Load()
红色部门代码有错,当对应角色登录后,自动筛选进度为2A、角色的部门和表里所属部门相同时显示该行,加And User.group = 所属部门就报错了,求怎么改,