vb6 treeview如何将添加节点保存?
不想将所有节点都修改后一次性保存,而是希望每修改(增加、删除)一个节点后立即保存当前节点数据到数据库中。PrivateSubCommand2_Click()'增加Setc...
不想将所有节点都修改后一次性保存,而是希望每修改(增加、删除)一个节点后立即保存当前节点数据到数据库中。
Private Sub Command2_Click() '增加
Set currNode = TreeView1.Nodes.Add(TreeView1.SelectedItem, tvwLast, , , 1, 2)
currNode.Text = "增加新部门"
currNode.Selected = True
TreeView1.StartLabelEdit '可编辑
End Sub
Private Sub Command5_Click() '增加子节点
Set currNode = TreeView1.Nodes.Add(TreeView1.SelectedItem, tvwChild, , , 1, 2)
currNode.Text = "增加新部门"
currNode.Selected = True '新部门可编辑为真
TreeView1.StartLabelEdit '可编辑新部门
End Sub
Private Sub Command3_Click() '删除选定的节点
If TreeView1.SelectedItem.Index <> 1 Then
TreeView1.Nodes.Remove
TreeView1.SelectedItem.Index '删除选定的节点
End If End
Sub Private Sub Command4_Click()'编辑
TreeView1.SelectedItem.Selected = True
TreeView1.StartLabelEdit '可编辑
End Sub 展开
Private Sub Command2_Click() '增加
Set currNode = TreeView1.Nodes.Add(TreeView1.SelectedItem, tvwLast, , , 1, 2)
currNode.Text = "增加新部门"
currNode.Selected = True
TreeView1.StartLabelEdit '可编辑
End Sub
Private Sub Command5_Click() '增加子节点
Set currNode = TreeView1.Nodes.Add(TreeView1.SelectedItem, tvwChild, , , 1, 2)
currNode.Text = "增加新部门"
currNode.Selected = True '新部门可编辑为真
TreeView1.StartLabelEdit '可编辑新部门
End Sub
Private Sub Command3_Click() '删除选定的节点
If TreeView1.SelectedItem.Index <> 1 Then
TreeView1.Nodes.Remove
TreeView1.SelectedItem.Index '删除选定的节点
End If End
Sub Private Sub Command4_Click()'编辑
TreeView1.SelectedItem.Selected = True
TreeView1.StartLabelEdit '可编辑
End Sub 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询