以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  最新记录的筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=18848)
--  作者：实话实说
--  发布时间：2012/4/20 23:03:00
--  最新记录的筛选
显示(筛选)[表A]最新10条记录代码如何写?
--  作者：y2287958
--  发布时间：2012/4/21 5:38:00
--  
Select Top 10 单价 From {订单} Where 产品 = \'PD01\' Order By 日期 Desc
[此贴子已经被作者于2012-4-21 5:38:26编辑过]
--  作者：实话实说
--  发布时间：2012/4/21 8:04:00
--  
谢谢提示
--  作者：实话实说
--  发布时间：2012/4/21 9:00:00
--  

我想在按钮上用代码

Select TOP 10 * FROM {表A} ORDER BY [_Identify] DESC

但是提示

select Case  必须与  end select  匹配

 

没用过SQL语句,帮助看过,找不到答案

 

 

Tables("表A").Filter = "Select TOP 10 * FROM {表A} ORDER BY [_Identify] DESC"

提示 TOP 运算符后缺少操作数

[此贴子已经被作者于2012-4-21 9:10:39编辑过]
--  作者：blackzhu
--  发布时间：2012/4/21 10:10:00
--  

楼主不会吧,你是狐表的老人了,居然...........?
--  作者：blackzhu
--  发布时间：2012/4/21 10:11:00
--  
datatables("表A").Fill("Select TOP 10 * FROM {表A} ORDER BY [_Identify] DESC","数据源",true)
--  作者：实话实说
--  发布时间：2012/4/21 12:07:00
--  

我不想重新加载,我想用筛选,在当前记录中筛选出最后10条记录
--  作者：blackzhu
--  发布时间：2012/4/21 12:40:00
--  

Dim dt As DataTable = DataTables("表A")
Dim idx As Integer = math.max(0,dt.DataRows.Count - 10)
Tables("表A").Filter = "[_Identify] >= " & dt.DataRows(idx)("_identify")

 

筛选后10条数据
--  作者：实话实说
--  发布时间：2012/4/21 13:16:00
--  
以下是引用blackzhu在2012-4-21 12:40:00的发言：

Dim dt As DataTable = DataTables("表A")
Dim idx As Integer = math.max(0,dt.DataRows.Count - 10)
Tables("表A").Filter = "[_Identify] >= " & dt.DataRows(idx)("_identify")

 

筛选后10条数据

谢了