1、增加一个Users结合,用于返回所有用户,例如: For Each us As UserInfo In Users Output.show("分组:" & us.Group) Output.Show("名称:" & us.Name)Next 也可以直接获得指定名称的用户,例如:Dim us As UserInfo = Users("周明")Output.show("分组:" & us.Group)Output.Show("名称:" & us.Name) 2、官方增加一个目录树授权的例子,只需一个表一个窗口,全部搞定:http://www.foxtable.com/help/topics/2405.htm
授权的例子参考了论坛hanxuntx兄的作品,在此表示感谢。 3、修正bug若干