主题：查询表分页

用fill生成查询表怎么分页呢？查询表没法用DataTables啊？

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
 

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

 

 

代码如下：

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注释掉，结果和分页都不对是什么原因：

 

此主题相关图片如下：222.jpg

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
详细错误信息：
未将对象引用设置到对象的实例。