Dim t1 As Table = Tables("AM_人事档案主表")
If t1.TopPosition > -1 Then '如果选定区域包括数据行 For i As Integer = t1.BottomPosition To t1.TopPosition MessageBox.Show(i) NextEnd If