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

数据库无法附加，请发数据库备份文件，或者转为内部表发上来

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

If dr Is Nothing Then Return

Dim Filter As String

……

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行

Dim Filter As String

Dim Filter下校 As String

Dim Filter笔记与档案 As String

Select Case e.Node.Name

Case "显示所有行"

MessageBox.show(e.Sender.SelectedNode.Name)

Filter =""

Filter下校 =""

Filter笔记与档案 =""

Case Else

Dim Year As Integer = dr("年")

Dim Month As Integer = dr("月")

Dim Day As String = dr("日")

Select Case e.Node.Level

Case 0

Filter ="Year(通知时间) = " & Year

Filter下校 ="Year(出差起日期) = " & Year

Filter笔记与档案 ="Year(出差时间) = " & Year

Case 1

Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month

Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month

Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month

Case 2

Filter ="Year(通知时间) = " & Year & " And Month(通知时间) = " & Month & " And day(通知时间) =" & Day

Filter下校 ="Year(出差起日期) = " & Year & " And Month(出差起日期) = " & Month & " And day(出差起日期) =" & Day

Filter笔记与档案 ="Year(出差时间) = " & Year & " And Month(出差时间) = " & Month & " And day(出差时间) =" & Day

End Select

DataTables("短信内容").LoadFilter = Filter

DataTables("短信内容").Load

DataTables("督导组下校登记").LoadFilter = Filter下校

DataTables("督导组下校登记").Load

DataTables("笔记本与档案").LoadFilter = Filter笔记与档案

DataTables("笔记本与档案").Load

放到前面如果选择的是"显示所有行"肯定出错，因为"显示所有行"不存在e.Node.DataRow

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

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

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

名称不一致

Case "笔记与档案_笔记与档案"
Tables("笔记与档案_Table笔记与档案").Theme = "Office2013Red"

这样即可

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

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