如何在目录树中右键添加新节点

简

我做了一个treeview，然后通过鼠标右键快捷菜单来添加或删除新节点。我希望添加时，自动在目录树上插入新节点的，不用打开新窗体（见附件）。代码上该怎么写呢？

还请各位帮助我，在此先谢了。

简

顶顶，问题没解决呢~~~

benaris

这个问题没有人解答吗

liwen

Public Function addCARGOTYPE() '添加
Dim strGongjian As String
Dim daihao As String
Dim tz As String
Dim xxfl
   
strGongjian = DLookup("详细分类名称", "tblgongyi", "[分类代号]='" & (lngKM) & "'")
daihao = lngKM & InputBox("明细分类代号" & lngKM & "**", "请输入代号", "**")
tz = InputBox("新设下级分类名称" & vbCrLf & strGongjian & "新设下级,", "请输入", "新设下级")
xxfl = strGongjian & tz & ","
'适当增加错误检测
If MsgBox("新设下级代码:" & daihao & vbCrLf & "详细分类名称:" & xxfl & vbCrLf & "确认增加吗?", vbYesNo, "确认") = vbYes Then
'写入表的代码和增加节点的代码
End If
End Function

asklove

学习学习

简

节点添加的问题解决了，我又出现了个问题，我如何让treeview里的节点按表tblGongJian（工件表）的顺序排列呢？