现在想让zhouyinhe@bdcom.com.cn 这个账号缺省加载分组为录入和审核的数据。可实际情况只加载了审核的数据。
If User.Name.Trim() = "zhouyinhe@bdcom.com.cn" Then
DataTables("技术支持信息表").LoadFilter = "[分组] = '录入'"
DataTables("技术支持信息表").LoadFilter = "[分组] = '审核'"
Else
Select Case user.Group
Case "录入","审核"
DataTables("技术支持信息表").LoadFilter = "name = '" & User.Name.trim() & "'"
End Select
End If