主题：突然出现不能加载的问题

请教老师，今天在做到期提醒出现无法加载问题，在窗口设置按钮执行如下两种方式的代码都无法加载（无论在窗口中是否有table控件都无法加载），数据库使用的是阿里的SQLSERVER数据库

 

原来考虑可能是项目的问题，脱离项目，新设项目只加载一个表进来，没有其他任何代码，目前只能从菜单“外部数据表”编辑才能加载全部数据进来，在窗口操作按钮都不能加载

 

原来设置了插入行标识列，后来又取消，经测试都不行

 

不知是什么问题，因链接远程数据库，无法上传项目，请老师看看是否遇到过这样的问题

 

测试方法1

Dim dt As Date =  Date.Today.AddDays(20)
Dim dr As DataRow =  DataTables("表A").SQLFind("日期 <= '" & dt & "'")
If dr IsNot Nothing  Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("表A").Filter = "日期 <= '" & dt & "'"
    MainTable = Tables("表A")
End If

 

测试方法2

Tables("表A").DataTable.Load()

Dim dt As Date =  Date.Today.AddDays(20)
Dim dr As DataRow =  DataTables("表A").SQLFind("日期 <= '" & dt & "'")
If dr IsNot Nothing  Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("表A").DataTable.LoadFilter = "日期 <= '" & dt & "'"
    Tables("表A").DataTable.Load
    MainTable = Tables("表A")
End If