继续补充新情况，真是酒喝多了简单考虑就结贴了，回头周按叶海峰老师的提议，看了一下NewString的返回值果真的是更改后的新值，哈哈，这个类似于鼠标事件中的自动取值，省事了，这样的话可以直接在控件上修改了，操作直观性好了很多。如果是有权限表控制的话，可以根据权限表给 LableEdit 属性动态赋值就可以了，可以省些人工了。代码如下
Private Sub TreeView0_AfterLabelEdit(Cancel As Integer, NewString As String)
Dim strText As String
Dim strDepartmentID As Long
Dim strSQL As String
'debug.print NewString
If TreeView0.SelectedItem.key = "s" Then '根目录不可删除
Exit Sub
Else
strDepartmentID = Right(TreeView0.SelectedItem.key, Len(TreeView0.SelectedItem.key) - 1)
strSQL = "update tbl销售部门 set 销售部门 = '" & NewString & "' where 销售部门ID = " & strDepartmentID & ";" '直接取更改后的新值NewString
CurrentDb.Execute strSQL
End If
End Sub
最近手里有活，等结束了我做个示例给学友分享。
