以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何筛选这个数据库  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71006)
--  作者：lishangru2007
--  发布时间：2015/7/3 9:26:00
--  如何筛选这个数据库

我这有个每分钟记录了两条数据的表，现在想从这个表里，每分钟提取一个数据，该如何实现？请狐仙们给帮个忙！


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150703092534.png
图片点击可在新窗口打开查看
--  作者：lishangru2007
--  发布时间：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(",") & ")"