主题：[讨论]如何筛选出符合条件的最后几条连续的记录

例如：
此主题相关图片如下：狐表提问2016年6月21日.png

tables("等级").filter = "等级 = 'A' and 这里不会写了 "

参考代码

 

Dim t As Table = Tables("表B")
Dim drs As List(of DataRow) = t.DataTable.Select("", "_Identify desc")
Dim str As String = ""
For i As Integer = 0 to drs.count-1
    Dim dr As DataRow = drs(i)
    If dr("第二列") = "A" Then
        For j As Integer = i To drs.count-1
            dr = drs(j)
            If dr("第二列") = "A" Then
                str &= dr("_Identify") & ","
            Else
                goto out
            End If
        Next
    End If
Next

out:
msgbox(str.trim(","))

不是取出最后连续三条记录的某字段的值，而是筛选出最后几条符合条件的行。请指导

无语

 

Dim t As Table = Tables("表B")
Dim drs As List(of DataRow) = t.DataTable.Select("", "_Identify desc")
Dim str As String = "-1,"
For i As Integer = 0 To drs.count-1
    Dim dr As DataRow = drs(i)
    If dr("第二列") = "A" Then
        For j As Integer = i To drs.count-1
            dr = drs(j)
            If dr("第二列") = "A" Then
                str &= dr("_Identify") & ","
            Else
                goto out
            End If
        Next
    End If
Next

out:
t.Filter = "_Identify in (" & str.trim(",") & ")"

明白了，谢谢