以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  突然出现不能加载的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118200)
--  作者：douglas738888
--  发布时间：2018/4/26 22:11:00
--  突然出现不能加载的问题

请教老师，今天在做到期提醒出现无法加载问题，在窗口设置按钮执行如下两种方式的代码都无法加载（无论在窗口中是否有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()
--  作者：有点甜
--  发布时间：2018/4/26 22:30:00
--  

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