授权窗口的AfterLoad
Dim trv2 As WinForm.TreeView = e.F orm.Controls("TreeView2")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "Select Group,name F rom {Users}"
dt = cmd.ExecuteReader()
trv2.BuildTree(dt,"Group|Name")
trv2.ExpandAll()
上面代码是抄来的，本来没有问题，但以上代码是基于教程中的自定义用户即“一、在文件“用户.mdb”新建一个名为“Users”的表，包括Name、Group、Password三列，分别用于保存用户名、用户分组和密码。”
我现在没用这个功能，但用了教程中的“外部数据源与用户管理”，因此在SQL数据库中USER表的字段是 Name,Type,Config，
也就是说Group的信息是存在了Config中，内容举例：Group 生产部 PassWord EmIR5WBjrFGjO7SHZdBWwQ== Type 2 Role 部长
上面的代码如何改能让目录树中正常显示Group，还是说没办法必须用自定义用户的方式，谢谢！
加好友 
发短信
Post By：2015/5/26 14:57:00 [显示全部帖子]
