以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最新记录的筛选  (http://foxtable.com/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条数据

谢了