主题：分页加载请教

参考代码，红色，是要变的

 

DataTables("订单").sqlload("SELECT TOP 3 * FR OM {订单} WHERE [_Identify] NOT IN (SELECT TOP 6 [_Identify] FR OM {订单} ORDER BY 第二列,[_Identify]) ORDER BY 第二列,[_Identify]")

或者，这样写代码

 

Dim nc As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")

With DataTables("订单")
    .LoadFilter = ""  '一定要清除加载条件
    .LoadTop = nc.Value

    .LoadOver = "[_Identify]"
    .LoadOrder = "第二列,[_Identify]"
    .LoadPage = 0
    .Load()
End With

3楼的方法，是有点问题。

 

请使用2楼的方法。再有就是，你第二列，请用数值列，不然排序会是 1、10、2、3、4 这样的。

参考，取出后，默认是按照_Sortkey排序的。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3 (2).foxdb

 无语，什么不是想要的效果啊，取出后你排序就行啊。

    DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} WHERE [_Identify] NOT In (Select TOP " & (vars("页数")-1)*nc.Value & " [_Identify] F ROM {基层法律服务机构信息表} ORDER BY 序号,[_Identify]) ORDER BY 序号,[_Identify]")

 报什么错？贴出你写的代码。

 就是简单的合并字符串而已，先计算得到值，然后放进sql语句里面。很简单的操作啊。

msgbox(flt)

 

DataTables("基层法律服务机构信息表").sqlload("SELECT TOP " & nc.Value & " * F ROM {基层法律服务机构信息表} where " & flt & " ORDER BY 序号,[_Identify]")

加载多少行，直接获取DataTable的行数就行；

 

总页数，用sqlCompute获取总行数，然后除以每一页行数，就能得出啊。

Dim count as integer = datatables("").SqlCompute("count(*)")

Dim p As integer = math.Ceiling(count / 10)