VB6 MS DATAGRID CONTROL“当前行不可用”

Question

当用户从数据网格双击记录时，我使用adodb（而非adodc）使用datagrid，记录将出现在标签上。但是当用户关闭表单时。有错误

  

Datagrid控件/当前行不可用

我不知道出了什么问题，我已经在表格卸载时关闭了记录集

这是我的代码

Dim myrecordset As New ADODB.Recordset

Private Sub dtgrid_DblClick()
Label9.Caption = ""
Label9.Caption = dtgrid.Columns(0)
End Sub

Private Sub Form_Load()
Call ConnectDB
With myrecordset
.ActiveConnection = con
'.LockType = adLockReadOnly
.CursorType = adOpenForwardOnly
.CursorLocation = adUseClient
.Open "SELECT * FROM Foo "
End With
Set dtgrid.DataSource = myrecordset
End Sub

Private Sub Form_Unload(Cancel As Integer)
myrecordset.close
set myrecordset = nothing
Call CloseDB
End Sub

这是来自模块

Public function CloseDB
    Set CMD = Nothing 'adodb command
    con.Close
    Set con = Nothing 'adodb connection
end sub

Answer 1

可能是因为你关闭了记录集，数据源仍然指向它。在关闭记录集之前，请尝试将DataSource属性设置为空。