参考代码
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(","))