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

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "第一列"
'For Each dr As DataRow In DataTables("欠款明细").Select("", cs)
For Each dr As DataRow In DataTables("表A").Select("", cs & ", _Identify")
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c)<> dr(c) Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            'msgbox(pdr("第一列") & " " & pdr("第二列") & " " & dr("第二列") & " " & dr("第一列"))
            If pdr("第二列") <> 0 Then
                idx &= pdr("_Identify") & ","
            End If
        End If
    End If
    pdr = dr
Next
If pdr IsNot Nothing Then
    If pdr("第二列") <> 0 Then
        idx &= pdr("_Identify") & ","
    End If
End If
e.Form.controls("Table1").Table.Filter = "_Identify In (" & idx.trim(",") & ")"

主题：筛选行