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

收藏

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

dexteryao · dexteryao

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

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

lz_xiaohai · lz_xiaohai

这个文档有中文的吗？

lz_xiaohai · lz_xiaohai

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)  提示语法错误

dexteryao · dexteryao

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

lz_xiaohai · lz_xiaohai

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 删除这一句，没有反映

lz_xiaohai · lz_xiaohai

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

lz_xiaohai · lz_xiaohai

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

dexteryao · dexteryao

您看下文档的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.

gicad · gicad

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

		自动登录	找回密码
密码			立即注册

[已处理] 在vb6中如何实现删除选中的多行？

10 个回复

讲师达人

悬赏达人

元老葡萄

SpreadJS 认证

SpreadJS 高级认证

微信认证勋章

活字格认证