fpspread控件如何实现删除选中的多行，网上找到的代码，好像哪里不对。各位给帮忙看一下。
Private Sub Command3_Click()Dim i As Integer
Dim r, c, r2, c2 As Integer
For i = fpSpread1.SelectionCount - 1 To 0 Step -1
fpSpread1.GetSelection i, c, r, c2, r2
fpSpread1.DeleteRows r, r2 - r + 1
fpSpread1.MaxRows = r2 - r + 1
Next i
End Sub
