[浏览完整版]
标题：如何实现这种效果谢谢！！！
1楼
雨中的泪 发表于：2009/11/6 8:49:00
2楼
狐狸爸爸 发表于：2009/11/6 8:51:00If e.Node.Level = 层 Then
'代码
End If
层从0开始算，第一层为0，第二层为1
'代码
End If
层从0开始算，第一层为0，第二层为1
3楼
雨中的泪 发表于：2009/11/6 9:10:00选择只有一层的“无”时，无法选择！！！代码如何改？谢谢
4楼
狐狸爸爸 发表于：2009/11/6 9:20:00难道自己写的代码，你都没有明白？
单击“无”的时候，也就是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()
单击“无”的时候，也就是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()
5楼
雨中的泪 发表于：2009/11/6 9:48:006楼
雨中的泪 发表于：2009/11/6 10:02:00版主帮帮忙，谢谢
7楼
狐狸爸爸 发表于：2009/11/6 10:06:00你根本就没有按照4楼修改代码。
8楼
程兴刚 发表于：2009/11/6 10:33:00记得以前已经给他回复过这样的例子了！
9楼
雨中的泪 发表于：2009/11/6 10:57:00我改的是“单位名称目录”这个窗口！！！！
此主题相关图片如下：1.jpg
此主题相关图片如下：1.jpg10楼
yangming 发表于：2009/11/6 11:11:00你点:"无" 时要什么结果?不明白,本身无,就是没有了