我测试没有问题呀,做个例子发过来看看。另外代码没有必要搞那么复杂,有些判断是没有必要的
Dim tb As Table = CurrentTable
If tb.Rows.Count > 0 Then ' 判断表是不是为空
' 检查选定行的范围是否有效,并且确保索引在表格行数范围内
If tb.TopPosition >= 0 AndAlso tb.BottomPosition >= 0 Then
For i As Integer = tb.TopPosition To tb.BottomPosition
tb.Rows(i).Load()
Next
Else
popmessage("选定行的范围无效或表格中没有有效的行。")
End If
Else
popmessage("表格为空。")
End If