e.Node.Name = e.Node.Text
If CurrentTable.Current.Locked = True Then
MessageBox.Show ("已锁定,禁止编辑!")
Return
End If
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dr As DataRow = e.Node.DataRow
msgbox(e.Node.ParentNode Is Nothing)
If e.Node.ParentNode Is Nothing Then
tr.SelectedNode = e.Node
msgbox("1笔记分类=" & dr("笔记分类"))
dr("笔记分类") = e.Node.Text
msgbox("2笔记分类=" & dr("笔记分类"))
Else
msgbox("e.Node.Level=" & e.Node.Level)
If e.Node.Level = 1 Then
tr.SelectedNode = e.Node
msgbox("3笔记分类=" & dr("笔记分类"))
dr("笔记分类") = e.Node.ParentNode.Text
msgbox("4笔记分类=" & dr("笔记分类"))
dr("笔记子项") = e.Node.Text
msgbox("5笔记子项=" & dr("笔记子项"))
ElseIf e.Node.Level = 2 Then
msgbox("e.Node.ParentNode.ParentNode.Text=" & e.Node.ParentNode.ParentNode.Text)
dr("笔记分类") = e.Node.ParentNode.ParentNode.Text
msgbox("7笔记分类=" & dr("笔记分类"))
msgbox("e.Node.ParentNode.Text=" & e.Node.ParentNode.Text)
dr("笔记子项") = e.Node.ParentNode.Text
msgbox("8笔记分类=" & dr("笔记子项"))
msgbox("e.NewText=" & e.NewText)
dr("子项实例") = e.NewText
msgbox("9笔记分类=" & dr("子项实例"))
End If
End If
加好友 
发短信
Post By：2022/8/26 16:25:00 [显示全部帖子]
