- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=81299)
-- 发布时间：2016/2/24 9:46:00
-- 筛选
谁帮我写一下如下筛选代码:按最近上传时间之前的10个记录筛选
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:日期筛选.foxdb |
-- 发布时间：2016/2/24 9:56:00
--
Dim t As Table = Tables("表A")
t.sort = "上传时间 desc"
Dim idx As String = "-1,"
For i As Integer = 0 To 9
If i < t.Rows.count Then
idx &= t.Rows(i)("_Identify") & ","
End If
Next
t.filter = "_Identify in (" & idx.trim(",") & ")"
-- 发布时间：2016/2/24 10:29:00
--
谢大红袍