If User.Name.Trim() = "zhouyinhe@bdcom.com.cn" Then DataTables("技术支持信息表").LoadFilter = "[分组] = '录入' Or [分组] = '审核'" Else Select Case user.Group Case "录入","审核" DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'" End SelectEnd If