在vb6中如何实现删除选中的多行？

在vb6中如何实现删除选中的多行？

请参考：
http://help.grapecity.com/spread ... e.html#cells14.html

我将你的帖子移动到ActiveX专区了。

这个文档有中文的吗？

    Dim i As Integer
    Dim r, c, r2, c2 As Object
   
    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

我看网上说这样写，但        fpSpread1.GetSelection(i, c, r, c2, r2)
        fpspread1.DeleteRows(r,r2-r+1)  提示语法错误

没有中文的
文档就是接口说明
GetSelection
http://help.grapecity.com/spread ... nct232.html#1142919
DeleteRows
http://help.grapecity.com/spread ... .html#funct153.html

   Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i 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
这段语句执行的时候，变量取数都对，但        fpSpread1.DeleteRows r, r2 - r + 1 删除这一句，没有反映

我测试了一下，插入行，插入列，删除列都可以就是删除行的时候没有反映，版主这是为什么？

可以删除用fpSpread1.InsertRows 新插入的行，不能删除原有的行，这是为什么？

您看下文档的Remarks，首先是不是有MaxRows属性，另外，先设置要操作的sheet再DeleteRows

Deleting rows does not decrease the number of rows set by the MaxRows property. When you call the DeleteRows method to delete a row, a blank row is automatically added at the end of the sheet.

This method is called for the current sheet setting unless you first set the Sheet property to specify the sheet with which you want to work.

假定grid1为控件名：
        Row1 = grid1.SelBlockRow
        Row2 = grid1.SelBlockRow2
        grid1.DeleteRows Row1, Row2 - Row1 + 1
        grid1.MaxRows = grid1.MaxRows - (Row2 - Row1 + 1)
即可删除多行，鼠标拖选的单元格占据几行，这几行都可删掉