主题：[求助]两个关于用户组的问题

1、

For Each us As UserInfo In Users
    If us.Group = user.Group Then
        Dim cmb As WinForm.CheckedListBox
        cmb = Forms("分享").Controls("CheckedListBox1")
        cmb.items.add(us.Group &"."& us.Name)
    end if
Next

2、关键看你 UserLogging 里面用的什么作为用户名。默认是分组+用户名。

http://www.foxtable.com/webhelp/scr/2969.htm