共13 条记录, 每页显示 10 条, 页签: [1] [2]

标题：动态加载的记录数！

1楼

woodiy 发表于：2009/10/4 12:32:00

DataTables("出库主表").LoadFilter = "[ID] <> '0'" '通过ID来排序.
DataTables("出库主表").Load()

通过以上代码动态加载的，能否只加载最后的100条记录呢，而不是全部。谢谢！

2楼

czy 发表于：2009/10/5 0:09:00

用SQLCommand吧，如：

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select Top 100 * From {出库主表} ORDER BY ID desc"
dt = cmd.ExecuteReader()
Dim Count As Integer = dt.DataRows(dt.DataRows.Count-1)("ID")
DataTables("出库主表").LoadFilter = "[ID] >= " & Count
DataTables("出库主表").Load()

[此贴子已经被作者于2009-10-5 0:15:57编辑过]

3楼

woodiy 发表于：2009/10/5 9:36:00

我现在的代码是这样的：

DataTables("出库主表").LoadFilter = "[ID] <> '0'" '通过ID来排序.

DataTables("出库主表").Load()

DataTables("出库明细").LoadFilter = "[ID] <> '0'" '通过ID来排序.

DataTables("出库明细").Load()

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")

dst.DataTable = DataTables("出库主表")

dst.Build()

用的方法是外部数据源的动态加载，是否可以改进。

4楼

woodiy 发表于：2009/10/6 20:47:00

没有人帮忙啊!

5楼

狐狸爸爸 发表于：2009/10/6 20:48:00

目前好像是没有办法的，等更新吧

6楼

woodiy 发表于：2009/10/7 13:40:00

好的，谢谢！

7楼

狐狸爸爸 发表于：2009/10/9 12:22:00

搞定，增加LoadTop和LoadOrder，例如加载最近的100条订单：

DataTAbles("订单").LoadTop = 100
DataTables("订单").LoadOrder = "日期"
DataTables("订单").Load

8楼

roy78 发表于：2009/10/9 12:30:00

貌似狐爸已经成神了，要可支持win32 api就更叨了，哈哈

9楼

yangming 发表于：2009/10/9 12:52:00

以下是引用狐狸爸爸在2009-10-9 12:22:00的发言：

搞定，增加LoadTop和LoadOrder，例如加载最近的100条订单：

DataTAbles("订单").LoadTop = 100
DataTables("订单").LoadOrder = "日期"
DataTables("订单").Load

好!如果不要倒序的,只是要顺序的呢?

10楼

狐狸爸爸 发表于：2009/10/9 15:20:00

以下是引用yangming在2009-10-9 12:52:00的发言：

好!如果不要倒序的,只是要顺序的呢?

DataTAbles("订单").LoadTop = 100
DataTables("订单").LoadOrder = "日期 Desc"
DataTables("订单").Load

共13 条记录, 每页显示 10 条, 页签: [1] [2]