求救，关于msflexgrid

Question

Private Sub grdChoice_DblClick()       'msflexgrid双击一行，删除这一行
    Dim i As Integer
    Dim j As Integer
    
    If grdChoice.row = 0 Then
        Exit Sub
    End If
    
    grdChoice.TextMatrix(grdChoice.row, 0) = "×"
             
     grdChoice.RemoveItem (grdChoice.row)         '提示这里错误。不能删除一个非固定行？？？？为什么？
      
     
            
     If grdChoice.Rows = 1 Then
        row2 = 1
        Exit Sub
    End If
    
    row2 = row2 - 1
    grdChoice.Rows = row2
   
End Sub
我怎么办？？

Answer 1

我设置了fixrows=0 ，但还是出现如上错误！

Answer 2

grdChoice.TextMatrix(grdChoice.row, 0) = "×"
if grdChoice.rows<2 then grdChoice.fixedrows=0             
grdChoice.RemoveItem (grdChoice.row)

Answer 3

那是mshflexgrid的问题，只允许有一固定行并带有一个非固定行，不能使非固定行为0我曾经处理的一个办法是，将该网格控件绑到一个数据库上，然后再设置查询条件为查询的行数为0，然后再设置列及列头名。这样就一切OK了。只不过就是麻烦了一些。没办法啊。

Answer 4

你是将网格删空了吧？
用一个变通的方法：如果是最后一个非固定行，将所有cell清空