主题：如何实现这种效果谢谢！！！

就是点不起！！！点了没反映！！！

单位基本信息录入窗口中-单位名称边的按钮代码改一下
if CurrentTable.Current.Locked Then  '判断当前行是否锁定
    Return  '锁定就终止代码的执行
Else      '为锁定就执行以下代码
Forms("单位名称目录").Open()    '这儿原是:Forms("单位名称目录4").Open() 
e.Cancel = True
End If

一定要我改吗？
 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人事工资管理系统.rar

双击节点时单位名称变成空，我的目的是双击节点时还是打开下拉＋！！！
只有双击“无”时单位名称才为空！！！
谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人事工资管理系统.table

这个文件和你的数据库文件放在一起后再打开,或是重新做数据库的链接

版主帮帮忙，看看

从不看帮助的恶果，答案就在帮助中。

你只需将：
If e.Node.Level = 0 Then '如果是顶层节点
改为
If e.Node.text = “无” Then '如果单击的是无

你让我深受打击。

改了双击节点时出错！！！
此主题相关图片如下：未命名.jpg

估计你还是搞不定，我帮你再写一次：

Dim r As Row = Tables("单位基本信息录入").Current
If e.Node.Text = "无" Then '如果是顶层节点
   r("单位名称") = Nothing
   e.Form.Close()
Elseif e.Node.Level = 1
   Dim Vals() As String = e.Node.FullPath.Split("\")
   Dim Filter As String = "[单位性质] = '" & Vals(0) & "' And [单位名称] = '" & Vals(1) & "'"
   Dim dr As DataRow = DataTables("单位名称").Find(Filter)
   r("单位名称") = dr("单位名称")
   e.Form.Close()
End If

Dim r As Row = Tables("单位基本信息录入").Current
If e.Node.text = "无" Then '如果单击的是无
    r("单位名称") = Nothing   
    Return '则返回
End If
Dim Vals() As String = e.Node.FullPath.Split("\")
Dim Filter As String = "[单位性质] = '" & Vals(0) & "' And [单位名称] = '" & Vals(1) & "'"
Dim dr As DataRow = DataTables("单位名称").Find(Filter)
r("单位名称") = dr("单位名称")
e.Form.Close()