Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]我想在目录树上增加一个节点，能选择后正常打印，需要改哪些控件代码？


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

主题：[求助]我想在目录树上增加一个节点，能选择后正常打印，需要改哪些控件代码？
帅哥哟，离线，有人找我吗？
zgjmost
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		[求助]我想在目录树上增加一个节点，能选择后正常打印，需要改哪些控件代码？  发帖心情 Post By：2021/12/15 0:18:00 [显示全部帖子]

[求助]我想在目录树上增加一个考试地址的节点，能选择后正常打印，需要改哪些控件代码？


图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20211215000721.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2021/12/15 12:23:00 [显示全部帖子]

这个节点我加成功了，但在执
图片点击可在新窗口打开查看此主题相关图片如下：111.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：112.png
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:国家开放大学考务系统.foxdb

行打印时是空的，不知涉及这个控件哪些代码？请教有点蓝老师，谢谢！

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


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2021/12/15 12:24:00 [显示全部帖子]

这个节点我加成功了，但在执行打印时是空的，不知涉及这个控件哪些代码？请教有点蓝老师！
谢谢有点蓝老师！
 回到顶部
帅哥哟，离线，有人找我吗？
zgjmost
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：498 积分：4611 威望：0 精华：0 注册：2013/4/25 8:02:00 		  发帖心情 Post By：2021/12/15 15:04:00 [显示全部帖子]

Dim nd,nd1 As  WinForm.TreeNode
nd = e.node
If nd.Nodes.Count > 0
    For Each nd1 In nd.AllNodes
        nd1.Checked = nd.Checked
    Next
End If
If e.node.Checked = False
    Do While  nd.parentnode IsNot Nothing
        nd = nd.parentnode
        If nd.Nodes.Count > 0
            For i As Integer = 0 To nd.Nodes.Count -1
                If nd.Nodes(i).Checked = True
                    Exit Do
                End If
                If i = nd.Nodes.Count -1
                    nd.Checked = False
                End If
            Next
        End If
    Loop
Else
    Do While  nd.parentnode IsNot Nothing
        nd = nd.parentnode
        nd.Checked = True
    Loop
End If
Dim bdm,xh,tj As String
Dim cnt,jds As Integer
For Each nd In e.Form.Controls("学员列表树").nodes("全部学员").AllNodes
    If nd.Level = 1 And nd.Checked = True
        bdm = nd.name
        cnt = nd.AllNodes.Count
        For Each nd1 In nd.AllNodes
            If nd1.Checked = True
                xh = xh & "," & nd1.name
                jds = jds +1
                If jds = cnt
                    xh = "all"
                End If
            Else
                If xh > ""
                    xh = xh.Replace("all","")
                End If
            End If
        Next
        If xh > ""
            xh = xh.Trim(",")
        End If
        jds = 0
        tj = tj & "|" & bdm & "\" & xh
        If tj > ""
            tj = tj.Trim("|")
        End If
    End If
Next

Dim jztj As  String

If tj > ""
    e.Form.Controls("加载条件").text = tj.Replace("|",vbcrlf)
    jztj = tj.Replace("|",vbcrlf)
Else
    e.Form.Controls("加载条件").text = ""
End If

有点蓝老师：这段代码有没有讲解，看了两个小时，还是看不明白？请老师帮忙注解一下，非常感谢！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 6 次数据查询