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

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

左边的目录树同时对窗体中的三个表进行动态加载，这三个表用sqltable类型时不出错，改成副本表后出现如上错误。检查里面引用的表名没有错，真不知是哪个对象引用错了，请帮助！

 

Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Filter下校 As String
Dim Filter笔记与档案 As String
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

原文件里有个《笔记与档案》的窗体，错在此窗体的筛选树的AfterSelectNode

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ddzcw.rar

今天没有空，现在才来发文件。我现在是把数据库分离后和应用程序一起打包的，看可以不？

 为什么变更变量设定的位置，这样就对了，两者区别在哪？

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

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

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

谢谢指导！