主题：命令窗口这段代码无效

Dim t1 As Table = Tables("AM_人事档案主表")

If t1.TopPosition > -1 Then '如果选定区域包括数据行  
    For i As Integer =  t1.BottomPosition To t1.TopPosition
        MessageBox.Show(i)
    Next
End If