Foxtable(狐表) → 用户栏目 → 专家坐堂 → 邪门的目录树节点层数！


  共有2632人关注过本帖树形打印复制链接

主题：邪门的目录树节点层数！
帅哥哟，离线，有人找我吗？
lmlptj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		邪门的目录树节点层数！  发帖心情 Post By：2016/9/27 22:51:00 [显示全部帖子]


If e.Node.Index <> 0  Then
    MessageBox.Show(e.Node.Level)
End If


以上代码是不是每点击每一个Node,都得弹出该节点所在的层数？？？AfterSelectNode 事件！
我咋遇到：只有点击0层的时候每次都会出现弹框，大部分第一层都不显示，偶尔会显示；第二层只显示1个，点击其他第二层节点无任何弹出框


！！求解！

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

图2中无论我怎么点2016年，就是没有反映，但点了2017年，就会如图1所示！

[此贴子已经被作者于2016/9/27 22:53:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lmlptj
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		  发帖心情 Post By：2016/9/28 9:09:00 [显示全部帖子]

Dim dt As DataTable = DataTables("残疾人主表")
If e.Node.Index <> 0  Then
    Dim filt As String
    Dim d1,d2 As Date
    Select Case e.Sender.SelectedNode.Level
        Case 0
            Dim dr As DataRow = e.Node.DataRow
            filt = "县市区 = '" & dr("县市区") & "'"
            dt.LoadFilter = filt
            dt.Load
        Case 1
            Dim dr As DataRow = e.Node.DataRow
            Dim y As Integer =dr("年")
            d1 = new Date(y,1,1)
            d2 = new Date(y,12,31)
            filt = "县市区 = '" & dr("县市区") & "' and 结算日期 >= #" & d1 & "# And 结算日期 <= #" & d2 & "#"
            dt.LoadFilter = filt
            dt.Load
        Case 2
            Dim dr As DataRow = e.Node.DataRow
            Dim y As Integer =dr("年")
            Dim jd As Integer = dr("季度")
            d1 = new Date(y,jd*3-2,1)
            d2 = new Date(y,jd*3,30)
            filt = "县市区 = '" & dr("县市区") & "' and 结算日期 >= #" & d1 & "# And 结算日期 <= #" & d2 & "#"
            dt.LoadFilter = filt
            dt.Load
    End Select
Else
    dt.LoadFilter = ""
    dt.Load
End If



此主题相关图片如下：1.png
按此在新窗口浏览图片

此主题相关图片如下：2.png
按此在新窗口浏览图片

此主题相关图片如下：3.png
按此在新窗口浏览图片
主要想执行以上代码，节点在0层的时候，可以执行代码，但到了1、2层，上述代码就不起作用了。
[此贴子已经被作者于2016/9/28 9:18:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lmlptj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		  发帖心情 Post By：2016/9/28 11:36:00 [显示全部帖子]

试过了，无效！

 回到顶部
帅哥哟，离线，有人找我吗？
lmlptj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：455 积分：3756 威望：0 精华：0 注册：2012/2/8 14:19:00 		  发帖心情 Post By：2016/9/28 11:41:00 [显示全部帖子]

谢谢老师指导！！！追问一句：如何实现只要点击其中一个目录节点，其他已经展的节点自动收缩？

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询