此主题相关图片如下:错图.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-12/20201292375371039.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