主题：怎么找到选择行的上一行

直接引用不就好了？

Dim t As Table = Tables("表A")
Dim cr As Row = t.Current
If cr.index = 0 Then
    msgbox("已经是第一行")
Else
    Dim pr As Row = t.rows(cr.Index-1)
    msgbox(pr("第一列"))
End If