如何实现这种效果谢谢！！！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现这种效果谢谢！！！

共有17705人关注过本帖树形打印复制链接主题：如何实现这种效果谢谢！！！

雨中的泪

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

如何实现这种效果谢谢！！！ 发帖心情

Post By：2009/11/6 8:49:00 [只看该作者]

在下拉表中选择“无”时只用一级！！！
图片点击可在新窗口打开查看

此主题相关图片如下：1.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:rsgzglxt.rar

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/11/6 8:51:00 [只看该作者]

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

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

雨中的泪

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1432 积分：9061 威望：0 精华：0 注册：2009/8/19 8:19:00

Post By：2009/11/6 9:10:00 [只看该作者]

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

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251397 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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()