下标在MSFlexgrid中超出范围

Posted 2021-04-17

我在VB6中使用msflexgrid。如何删除或解决以下错误：

下标超出范围。

With flxData(0)
  For i = 1 To .Rows - 1
    Do While cboselect <> .TextMatrix(i, 1)
      .RemoveItem (i)
    Loop
  Next i
End with

答案

刚刚意识到Do While循环内部的For循环将导致错误显示 - 一旦一行没有所需的cboselect值，它将调用RemoveItem以及所有剩余的行，直到它被删除所有这些，然后它会在尝试删除（现在）不存在的行时显示该消息。

我猜你想要只删除与cboselect值不匹配的行，这样就可以调用If语句。您还需要向后运行For循环。试试这个：

With flxData(0)
  For i = .Rows - 1 to 1 Step -1
    If cboselect <> .TextMatrix(i, 1) Then
      .RemoveItem (i)
    End If
  Next i
End With