目录树AfterSelectNode
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Level = 2 Then
e.form.controls("编号").text = dr("编号")
e.form.controls("用户").text = dr("用户")
Tables("用户管理_table3").ClearCheckedRows
Tables("用户管理_table4").ClearCheckedRows
Dim dr2 As DataRow = DataTables("用户权限表").Find("用户编号='" & dr("编号") & "'")
If dr2 IsNot Nothing Then
Dim idx As Integer = Tables("用户管理_table4").Findrow("编号='" & dr2("角色编号") & "'")
If idx > -1 Then
Tables("用户管理_table4").Position = idx
Tables("用户管理_table4").Rows(idx).Checked =True
End If
End If
End If
至于各种权限的控制模式我没有看懂。用户到底是绑定角色，还是直接绑定权限？
加好友 
发短信
Post By：2020/7/30 9:05:00 [显示全部帖子]
