主题：[求助] [Identify] is null 报错

另 哪位老师帮我看看这个代码有没有问题

自定义用户登录 按分组选择加载行

Dim Filter As String
Select Case _UserGroup
    Case "销售助理"
        Filter = "A6 = _UserName"
    Case "发货员"
        Filter = "K2 = 1"
    Case "商务助理2"
        Filter = "D0 = 1"
    Case "干变车间"
        Filter = "DD = 2"
    Case "油变车间"
        Filter = "DD = 1"
    Case "超高压车间"
        Filter = "DD = 3"
    Case "干变测试"
        Filter = "DD = 2 And DD = 3"
    Case "油变测试"
        Filter = "DD = 1 And DD = 3"
    Case "商务助理2"
        Filter = "D0 = 1"
    Case Else
        Filter = "E2 = 1"
End Select
DataTables("合同统计").LoadFilter = Filter
DataTables("合同统计").Load()

谢谢狐爸

Filter = "A6 = _UserName"  可以用 测试好像没问题哎，这是为什么？