- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何筛选这个数据库 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71006)
-- 发布时间：2015/7/3 9:26:00
-- 如何筛选这个数据库
我这有个每分钟记录了两条数据的表，现在想从这个表里，每分钟提取一个数据，该如何实现？请狐仙们给帮个忙！
此主题相关图片如下：qq图片20150703092534.png
-- 发布时间：2015/7/3 9:47:00
-- “提取”换成“筛选”
“提取”换成“筛选”，这样更能准确表达意思
-- 发布时间：2015/7/3 9:57:00
--
直接说这样做的目的，筛选为了做什么。
-- 发布时间：2015/7/3 10:05:00
--
Dim idx As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
For Each dr As DataRow In DataTables("表A").Select("日期时间 is not null", "日期时间")
If pdr IsNot Nothing AndAlso (Format(pdr("日期时间"), "yyyyMMddHHmm") <> Format(dr("日期时间"), "yyyyMMddHHmm")) Then
If count >= 1 Then
idx &= pdr("_Identify") & ","
End If
count = 1
Else
count += 1
End If
pdr = dr
Next
If count >= 1 Then
idx &= pdr("_Identify") & ","
End If
Tables("表A").filter = "_Identify in (" & idx.trim(",") & ")"