难：：讨论关于treeview 的难题？？

Question

Private Sub TreeView_AfterLabelEdit(Cancel As Integer, NewString As String)    If addDflag Then                '如果是添加部门，则添加
        Set Rs = New ADODB.Recordset
        strSQL = "insert into Department(Department) values ('" & NewString & "')"
        Rs.Open strSQL, Conn, adOpenDynamic, adLockPessimistic
    Else                            '如果是修改部门，则修改
        Set Rs = New ADODB.Recordset
        strSQL = "update Department set Department='" & NewString & "'where

Answer 1

Department='" & depName(l) & "'"
        Rs.Open strSQL, Conn, adOpenDynamic, adLockPessimistic
        
        Set Rs = New ADODB.Recordset
        strSQL = "update BaseInfo set Department='" & NewString & "'where Department='" & depName(l) & "'"
        Rs.Open strSQL, Conn, adOpenDynamic, adLockPessimistic
        Set Rs = New ADODB.Recordset
        strSQL = "update Leaves set Department='" & NewString & "'where Department='" & depName(l) & "'"
        Rs.Open strSQL, Conn, adOpenDynamic, adLockPessimistic
    End If
    addDflag = False
    Call Form_Load  
End Sub
Form_Load 是你的初始化treeview,只作参考

Answer 2

是这样的，添加、删除是通过对数据库的添加、删除实现的。
当然要把所有的节点重写一次，包括win都是这样的，你不看你在资源管理器删除一个节点资源管理器的动作