生成目录树的地方改一下
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")trv1.BuildTree("授权","分组|权限")trv1.BuildTree("用户表","分组|用户名")Trv1.Nodes(0).Expand()trv2.ExpandAll()