主题：如何统计符合条件的记录数

Dim p As List(of String)

Dim s As Integer

Dim r As Row

p = DataTables("表A").getvalues("第一列")

For i As Integer = 0 To p.count - 1

   s = 0

    For ii As Integer = 0 To Tables("表A").count -1

        For Each r In Tables("表A").Rows

            If Tables("表A").Rows(ii)("第一列") = p(i) Then

                s+ = 1

                r("第二列") = s

            End If

        Next

    Next

Next