Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]目录节点延伸


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

主题：[讨论]目录节点延伸
帅哥哟，离线，有人找我吗？
工匠
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5021 威望：0 精华：0 注册：2017/4/20 11:08:00 		[讨论]目录节点延伸  发帖心情 Post By：2021/4/6 12:23:00 [只看该作者]

老师好：
请教一下，在目录节点鼠标点击不同的第二节点标题后，附加执行一段另外的代码，怎么实现，谢谢！

Dim SQLFilter As String
If e.Node.name = "所有编码规则" Then
    SQLFilter = "1=1"
Else
    
    Dim Filter As String
    If e.node.Text = "所有编码规则" Then
        Filter = ""
    Else
        
        Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
        Select Case e.Node.Level
            Case 0
                SQLFilter ="[归属部门] = '" & dr("归属部门") & "'"
                
            Case 1
                SQLFilter ="[归属部门] = '" & dr("归属部门") & "' And [产品类别] = '" & dr("产品类别") & "'"

‘如果第二节点 产品类别 的内容是ABC成品，在实现筛选后执行一段A代码
‘如果第二节点 产品类别 的内容是EFG成品，在实现筛选后执行一段B代码


        End Select
    End If
End If

Tables("编码规则").Filter = sqlFilter

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


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/6 13:49:00 [只看该作者]

if e.node.text = "ABC成品" then
执行一段A代码
elseif e.node.text = "EFG成品" then
执行一段B代码
end if
 回到顶部
帅哥哟，离线，有人找我吗？
工匠
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：550 积分：5021 威望：0 精华：0 注册：2017/4/20 11:08:00 		  发帖心情 Post By：2021/4/6 14:44:00 [只看该作者]

谢谢老师，实现一半了，实际需要在点击不同节点后，根据节点名称，来调整窗口表保存的不同顺序和列宽（调取文件值）
现在加了后提示不是其成员
请再帮看看，如何调取保存的记录重新排列显示

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

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


加好友 发短信
等级：超级版主 帖子：110648 积分：563148 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/4/6 14:51:00 [只看该作者]

ReadAllText读取文本文件的内容
WriteAllText向文本文件中写入内容
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询