|
ElseIf e.Node.Level = 2 '重命名分类名称
Dim dt As DataTable = DataTables("授权")
Dim dr As DataRow
Dim fz1 As String = e.Node.ParentNode.ParentNode.Name '获得一类名
Dim fz2 As String = e.Node.ParentNode.Name '获得二类名
dr = dt.Find("一类名称 = '" & fz1 & "' And 二类名称 = '" & fz2 & "' And 三类名称 = '" & e.NewText & "' " ) '判断新输入的分类是否存在
If dr IsNot Nothing '如果存在,取消输入.
MessageBox.Show("此类名已经存在!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
Else
dr = dt.Find("一类名称 = '" & fz1 & "' And 二类名称 = '" & fz2 & "' And 三类名称 = '" & e.node.Text & "' " ) '找出对应的行
dr("三类名称") = e.NewText '重命名权限
e.Node.Name = e.NewText '使得节点的名称和标题保持一致.
End If
End If
|
加好友 
发短信
Post By：2012/2/18 15:57:00 [显示全部帖子]
