以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]提取自定义用户管理的用户信息 代码 以解决  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22713)
--  作者：lsf5138
--  发布时间：2012/8/21 23:41:00
--  [求助]提取自定义用户管理的用户信息 代码 以解决

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

 

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

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

[此贴子已经被作者于2012-8-22 0:22:57编辑过]