主题：table用filter后无法逐行遍历

CurrentTable.Filter = "第一列 = '测试'"
For i As Integer = 0 To CurrentTable.Rows.count-1
    CurrentTable.Position = i
    Dim r = CurrentTable.Rows(i)
    Output.Show(r.Index)
Next