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


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

主题:[讨论]目录节点延伸

帅哥哟,离线,有人找我吗?
工匠
  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


加好友 发短信
等级:超级版主 帖子:110253 积分:561089 威望: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


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

ReadAllText读取文本文件的内容
WriteAllText向文本文件中写入内容

 回到顶部