主题：[求助]如何计算一次删除记录的数量，并找出各自对应的_Identify

Dim Topp  = Tables("表B").TopPosition
Dim bott = Tables("表B").BottomPosition
With Tables("表B")
    For i As Integer = bott To Topp  Step -1
        lst.Add(.Rows(i)("_Identify"))
        .Rows(i).Delete()
    Next
End With

For Each i As Integer In lst
    Output.Show(i)
Next