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

在下拉表中选择“无”时只用一级！！！
此主题相关图片如下：1.jpg

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

点击浏览该文件:rsgzglxt.rar

选择只有一层的“无”时，无法选择！！！代码如何改？谢谢

这样改了，还是不行！！！

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

点击浏览该文件:rsgzglxt.rar

版主帮帮忙，谢谢

我改的是“单位名称目录”这个窗口！！！！
此主题相关图片如下：1.jpg

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

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

版主帮帮忙，看看

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

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()