以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  动态加载的记录数！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4494)
--  作者：woodiy
--  发布时间：2009/10/4 12:32:00
--  动态加载的记录数！
DataTables("出库主表").LoadFilter = "[ID] <> \'0\'"   \'通过ID来排序. 
DataTables("出库主表").Load()


通过以上代码动态加载的，能否只加载最后的100条记录呢，而不是全部。谢谢！
--  作者：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编辑过]
--  作者：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()


用的方法是外部数据源的动态加载，是否可以改进。
--  作者：woodiy
--  发布时间：2009/10/6 20:47:00
--  

没有人帮忙啊!
--  作者：狐狸爸爸
--  发布时间：2009/10/6 20:48:00
--  
目前好像是没有办法的，等更新吧
--  作者：woodiy
--  发布时间：2009/10/7 13:40:00
--  

好的，谢谢！
--  作者：狐狸爸爸
--  发布时间：2009/10/9 12:22:00
--  

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

DataTAbles("订单").LoadTop = 100
DataTables("订单").LoadOrder = "日期"
DataTables("订单").Load
--  作者：roy78
--  发布时间：2009/10/9 12:30:00
--  

貌似狐爸已经成神了，要可支持win32 api就更叨了，哈哈
--  作者：yangming
--  发布时间：2009/10/9 12:52:00
--  
以下是引用狐狸爸爸在2009-10-9 12:22:00的发言：

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

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

好!如果不要倒序的,只是要顺序的呢?
--  作者：狐狸爸爸
--  发布时间：2009/10/9 15:20:00
--  
以下是引用yangming在2009-10-9 12:52:00的发言：

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


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