1、如果是复杂的sql语句，无法直接用datatable实现分页的。（简单的sql语句，指的是单表的查询）

2、复杂的sql语句，建议你直接在数据库那里弄一个视图，然后再在foxtable里面引入，这样可以用datatable分页。

Tables("待签订合同_Table1").fill("S elect [_Identify],项目编码,所属机构,项目名称,中标金额,中标日期,签订状态,备注 From {中标统计} WHERE 签订状态 In (\'待签订\') ORDER BY 项目编码 DESC","外部数据",False)
Tables("待签订合同_Table1").openview("待签订合同")
With Tables("待签订合同_Table1")
    .DataTable.LoadFilter = Functions.Execute("单表加载")
    .DataTable.LoadPage = 0 \'加载第一页
    .DataTable.LoadTop = e.Form.Controls("ComboBox1").Value   \'每页20行 \'每页20行
    .DataTable.LoadOver =  "项目编码"   \'加载依据列
    .DataTable.Load()
    .DataTable.LoadPage = .DataTable.TotalPages - 1 \'加载最后一页
    .DataTable.Load()
    e.Form.Controls("TextBox1").Value = .DataTable.TotalPages  & "/" & .DataTable.TotalPages
End With
 

怎么分页后，是按照中标统计表所有的数据来分页的，不是按照来分页的呢？

1、做一个具体的实例发上来测试；

2、说明做什么操作，最后应该得到什么结果。

代码如下：

Dim cmd As  New  SQLCommand
Dim dt As  DataTable
cmd.ConnectionName =  "外  据"
cmd.CommandText = "S elect [_Identify],项目编码,所属机构,项目名称,中标金额,中标日期,签订状态,备注 From {中标统计} WHERE 签订状态 In (\'待签订\') ORDER BY 项目编码 DESC"
dt = cmd.ExecuteReader()
Tables("待签订合同_Table1").DataSource = dt  \'动态绑定到窗口表
Tables("待签订合同_Table1").openview("待签订合同")

With dt
    .LoadFilter = ""
    .LoadPage = 0 \'加载第一页
    .LoadTop = e.Form.Controls("ComboBox1").Value   \'每页20行 \'每页20行
    .LoadOver =  "项目编码"   \'加载依据列
    .Load()
    .LoadPage = .TotalPages - 1 \'加载最后一页
    .Load()
    e.Form.Controls("TextBox1").Value =.TotalPages  & "/" & .TotalPages
End With

把.LoadFilter注释掉，结果如下出来结果和分页都是正确的：

 
此主题相关图片如下：111.png

不把.LoadFilter注释掉，结果和分页都不对是什么原因：

这个条件，请写到loadfilter里面去

签订状态 In (\'待签订\')

分页的时候，直接根据表名分页的，不会理会你之前的where后面的条件的

With DataTables("待签订合同_Table1")
    .LoadFilter = "签订状态= \'待签订\'"
    .LoadPage = 0 \'加载第一页
    .LoadTop = e.Form.Controls("ComboBox1").Value   \'每页20行 \'每页20行
    .LoadOver =  "项目编码"   \'加载依据列
    .Load()
    .LoadPage = .TotalPages - 1 \'加载最后一页
    .Load()
    e.Form.Controls("TextBox1").Value =.TotalPages  & "/" & .TotalPages
End With

.NET Framework 版本：2.0.50727.8745
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,待签订合同,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。

出错的实例发上来测试。