Dim tr4 As WinForm.TreeView = e.Form.Controls("TreeView4")
tr4.StopRedraw '停止绘制树
tr4.BuildTree("用户权限表","项目|权限")
Dim yhfz As String = lst.SelectedValue
yhfz = "|" & yhfz & "|"
MessageBox.Show(yhfz)
Dim nd As WinForm.TreeNode
For Each dr As DataRow In DataTables("用户权限表").DataRows '从用户权限数据表中提取数据
If dr("权限") = "" Then
nd = tr4.Nodes(dr("项目"))
Else
nd = tr4.Nodes(dr("项目")).Nodes(dr("权限"))
End If
tr4.SelectedNode = nd
If dr("有权限用户") Like "%yhfz%" Then
nd.Checked = True
Else
nd.Checked = False
End If
Next
Tr4.ExpandAll()
tr4.ResumeRedraw '恢复绘制树