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

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

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

zsxx999ja

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

加好友

发短信

等级：童狐帖子：214 积分：2290 威望：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

zsxx999ja

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

加好友

发短信

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

Post By：2020/12/21 21:53:00 [显示全部帖子]

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

zsxx999ja

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

加好友

发短信

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

Post By：2020/12/21 22:00:00 [显示全部帖子]

代码改为：

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

此时正确，但我没有明白它的道理。两者差异？