主题：如何定位到非空的最后一行

参考代码

Dim t As Table = Tables("表A")
Dim pidx As Integer = 0
For Each r As Row In t.Rows
    If r.IsNull("第一列") = false Then
        pidx = r.Index
    End If
Next

t.Position = pidx

如果是几万行的数据，这么查会不会很费时间。我的思路是从下往上查，从空行到非空行的位置。这思路如何！

Dim t As Table = Tables("表A")
Dim pidx As Integer = 0
For i As Integer = t.rows.count-1 To 0 Step -1
    Dim r As Row = t.rows(i)
    If r.IsNull("第一列") = False Then
        pidx = r.Index
    End If
Next

t.Position = pidx