窗体中的目录树AfterSelectNode事件出错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗体中的目录树AfterSelectNode事件出错？

共有3047人关注过本帖树形打印复制链接主题：窗体中的目录树AfterSelectNode事件出错？

zsxx999ja

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/13 12:52:00 [只看该作者]

此主题相关图片如下：1.jpg

窗口中有三个table控件表，下面的三个button 对活动表起作用，鼠标单点击某表，这个表这变成活动的表，但表的样式没有跟着变化，有时表中无行，就搞不明白是否点选成功。我想点选某表，这个表的标题就给个样式与其它表区别出来，如何办？在哪个事件里写代码，如何办？

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/13 20:46:00 [只看该作者]

这个事件：http://www.foxtable.com/webhelp/topics/0664.htm

zsxx999ja

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/14 23:13:00 [只看该作者]

11楼窗体中的目录树，我想在各表增加行之后，目录树自动刷新。于是我

方法1：在保存按中加入如下代码

If Forms("笔记与档案").Opened Then

mytree.ResumeRedraw 'mytree 个全局变量，是窗体加载时动态生成的目录树，

End If

但目录树并没有刷新。

方法2：我将生成目录树的代码全部贴在保存按键之中，或将代码保存为一个自定义函数，它都能刷新。

但没有回到先前打开的位置，如何才能刷新后同样打开到原来的位置

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/14 23:28:00 [只看该作者]

只能使用方法2刷新。刷新前使用变量记录一下原来选择的节点名称（标题），刷新后遍历所有节点，找到和原来选择的节点名称（标题）的节点并选中

zsxx999ja

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/16 22:34:00 [只看该作者]

方法会了，但代码写不来。请据实指导，作出代码让我思考。

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/17 8:47:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim n As WinForm.TreeNode = trv.SelectedNode

刷新的代码

If n IsNot Nothing Then

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.Text = n.text Then

trv.SelectedNode = nd

nd.EnsureVisible

Exit For

End If

zsxx999ja

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/18 5:13:00 [只看该作者]

谢谢指导！

For Each nd As WinForm.TreeNode In trv.AllNodes

If nd.Text = n.text Then

trv.SelectedNode = nd

nd.EnsureVisible

Exit For

End If

上代码打开的是第一个节点，于时我改成了fullname

Dim n As WinForm.TreeNode = trv.SelectedNode

fullname as string = n.fullname

成功了，谢谢！

zsxx999ja

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/21 21:28:00 [只看该作者]

第11楼中的问题：窗口中有三个table控件表，我想点选某表，这个表的标题就给个样式与其它表区别出来，如何办？在哪个事件里写代码，如何办？

第12楼的答复的事件是在项目的事件中，窗体和表都没有这个事件，于是我在项目属性的CurrentTableChanged中写下如下代码，测试全部是红色样式，如何改？或在其它什么事件中再将这个表的样式去掉。

If Forms("笔记与档案").Opened Then
    Select Case CurrentTable.DataTable.Name
        Case "笔记与档案_Table短信"
            Tables("笔记与档案_Table短信").Theme = "Office2013Red"
        Case "笔记与档案_Table下校"
            Tables("笔记与档案_Table下校").Theme = "Office2013Red"
        Case "笔记与档案_笔记与档案"
            Tables("笔记与档案_Table笔记与档案").Theme = "Office2013Red"
    End Select
End If

有点蓝

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107754 积分：548109 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/12/21 21:32:00 [只看该作者]

If Forms("笔记与档案").Opened Then
            Tables("笔记与档案_Table短信").Theme = 改回"原来默认的样式"
            Tables("笔记与档案_Table下校").Theme = "改回"原来默认的样式"
            Tables("笔记与档案_Table笔记与档案").Theme = "改回"原来默认的样式"
    Select Case CurrentTable.DataTable.Name
        Case "笔记与档案_Table短信"
            Tables("笔记与档案_Table短信").Theme = "Office2013Red"
        Case "笔记与档案_Table下校"
            Tables("笔记与档案_Table下校").Theme = "Office2013Red"
        Case "笔记与档案_笔记与档案"
            Tables("笔记与档案_Table笔记与档案").Theme = "Office2013Red"
    End Select
End If

zsxx999ja

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：212 积分：2275 威望：0 精华：0 注册：2020/10/3 6:58:00

Post By：2020/12/21 21:53:00 [只看该作者]

测试，当选择最后一个窗体表时无效，前面的两个表选择后是对的，代码逻辑还有点问题，如何改？

下一主题 >> << 上一主题

总数 28 上一页 1 2 3 下一页

主题：窗体中的目录树AfterSelectNode事件出错？