- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]目录节点延伸 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=162110)
-- 发布时间：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
谢谢！
-- 发布时间：2021/4/6 13:49:00
--
if e.node.text = "ABC成品" then
执行一段A代码
elseif e.node.text = "EFG成品" then
执行一段B代码
end if
-- 发布时间：2021/4/6 14:44:00
--
谢谢老师，实现一半了，实际需要在点击不同节点后，根据节点名称，来调整窗口表保存的不同顺序和列宽（调取文件值）
现在加了后提示不是其成员
请再帮看看，如何调取保存的记录重新排列显示
此主题相关图片如下：qq图片20210406143858.png
谢谢
-- 发布时间：2021/4/6 14:51:00
--
| ReadAllText | 读取文本文件的内容 |
| WriteAllText | 向文本文件中写入内容 |