以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态加载行数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119878)

--  作者:machle
--  发布时间:2018/6/3 9:40:00
--  动态加载行数
在打开项目的时候,默认只加载外部表10行,然后用下面的代码点多少次,都是加载10行,但利用卸载表,卸掉以后,再用下面的代码,就能加载所有的行。

我该怎么改?开始加10行,点这个按钮,就能全部加载?

If DataTables.Contains("IncidentReports2005") = False Then
    DataTables.Load("IncidentRepor
    DataTables("IncidentReports2005").LoadTop = Nothing
    DataTables("IncidentReports2005").LoadOrder = "\'Date of Incident\' Desc"
    DataTables("IncidentReports2005").LoadFilter = ""    
    DataTables("IncidentReports2005").Load   
    
    MainTable = Tables("IncidentReports2005")
End If




--  作者:有点甜
--  发布时间:2018/6/3 10:25:00
--  

改成

 

If DataTables.Contains("IncidentReports2005") = False Then
    DataTables.Load("IncidentReports2005")
End If
DataTables("IncidentReports2005").LoadTop = Nothing
DataTables("IncidentReports2005").LoadOrder = "\'Date of Incident\' Desc"
DataTables("IncidentReports2005").LoadFilter = ""
DataTables("IncidentReports2005").Load

MainTable = Tables("IncidentReports2005")