主题：自定义用户管理与权限

代码

Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv1.BuildTree("授权","分组|权限")

Dim cmd As new SQLCommand
cmd.ConnectionName = "user"
cmd.CommandText = "select * from {users}"
Dim dt As DataTable = cmd.ExecuteReader
trv2.BuildTree(dt,"Group|Name")

Trv1.Nodes(0).Expand()
trv2.ExpandAll()