如何筛选这个数据库 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何筛选这个数据库

共有1870人关注过本帖树形打印复制链接主题：如何筛选这个数据库

lishangru2007

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：267 威望：0 精华：0 注册：2014/11/27 9:55:00

如何筛选这个数据库 发帖心情

Post By：2015/7/3 9:26:00 [只看该作者]

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

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20150703092534.png

lishangru2007

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：20 积分：267 威望：0 精华：0 注册：2014/11/27 9:55:00

“提取”换成“筛选” 发帖心情

Post By：2015/7/3 9:47:00 [只看该作者]

“提取”换成“筛选”，这样更能准确表达意思

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/3 9:57:00 [只看该作者]

直接说这样做的目的，筛选为了做什么。

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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(",") & ")"

下一主题 >> << 上一主题

主题：如何筛选这个数据库