主题：[求助]提取自定义用户管理的用户信息 代码 以解决

改用自定义用户管理后这个代码提取不到自定义用户信息（只能提取系统自带的用户信息）有谁知道代码怎么改了？

With CurrentTable
    Dim Str1 As String = "当前用户:" & User.Name
    Str1 = Str1 & "  分组:" & User.Group
    Str1 = Str1 & "   当前时间 " & Date.Now()
    StatusBar.Message1 = Str1
End With

找到了 原来是_UserName    _UserGroup 改了就OK