UC知道在MSflexgrid中删除数据时，只能删除末记录前面的记录，删除末记录时，会出现“下标越界”的错误
来源：百度知道 编辑：UC知道 时间：2024/05/30 12:16:29
在MSflexgrid中删除数据时，只能删除末记录前面的记录，删除末记录时，会出现“下标越界”的错误
msglist的控件对象为msflexgrid
Private Sub Command2_Click()
If msglist.Rows > 2 Then
intIndex = msglist.RowSel
msglist.RemoveItem (intIndex)
txtsql = "delete from base_salexx where formID='" & Trim(msglist.TextMatrix(intIndex, 1)) & "'"
Set mrc = executesql(txtsql, msgtext)
showData
Else
MsgBox "数据库中最后一条记录不能删除！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
End Sub
msglist的控件对象为msflexgrid
Private Sub Command2_Click()
If msglist.Rows > 2 Then
intIndex = msglist.RowSel
msglist.RemoveItem (intIndex)
txtsql = "delete from base_salexx where formID='" & Trim(msglist.TextMatrix(intIndex, 1)) & "'"
Set mrc = executesql(txtsql, msgtext)
showData
Else
MsgBox "数据库中最后一条记录不能删除！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
End Sub
不错！Flexgrid 控件的确不能删除最后一个非固定行，不过我们可以变通一下，直接设置 ROWS 属性。例如 MS1.ROWS＝1，如此设置，就只剩下一个标题行了，如果设置为0，则连标题航也都不见了。你试试看。