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

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