以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问:加载数据表的同时,只加载最后10行数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19211)
--  作者：kevin
--  发布时间：2012/5/2 17:02:00
--  请问:加载数据表的同时,只加载最后10行数据

创建一个Normal型Table控件，将订单表移到窗口中：

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", False)
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)


请问:加载数据表的同时,只加载"订单"最后10行数据,请问应该怎么做?
--  作者：狐狸爸爸
--  发布时间：2012/5/2 17:05:00
--  

那就用SQLTable或者SQLQuery，Select 语句:

 

Select Top 10 From {订单} Order By [_Identify] Desc
--  作者：blackzhu
--  发布时间：2012/5/2 17:10:00
--  

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", False)
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

Dim dt As DataTable = Tables(e.form.Name & "_Table1").DataTable
Dim idx As Integer = math.max(0,dt.DataRows.Count - 10)
Tables(e.form.Name & "_Table1").DataTable.loadFilter = "[_Identify] >= " & dt.DataRows(idx)("_identify")
Tables(e.form.Name & "_Table1").DataTable.load

 

副本表状态下.