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

If e.Node.Level = 层  Then
  '代码
End If

层从0开始算，第一层为0，第二层为1

难道自己写的代码，你都没有明白？
单击“无”的时候，也就是level = 0 的时候，你直接Retun，还怎么选啊。
你加上一句：
r("单位名称") = Nothing   
不就可以清除单位名称来吗？

Dim r As Row = Tables("单位基本信息录入").Current
If e.Node.Level = 0 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()

你根本就没有按照4楼修改代码。

一定要我改吗？
 

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

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

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

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

你让我深受打击。

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

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

看来我判断正确，看19楼。