绑定到断开连接的内存中记录集的表单不会刷新

Question

我有一个连续的表单和onOpen事件，我动态创建了一个ADODB.Recordset。

我将此值用于以下属性：

Private Sub Form_Open(Cancel As Integer)
Dim rs As New ADODB.Recordset
...
With rs
    Set .ActiveConnection = Nothing
    .CursorType = adOpenKeyset
    .CursorLocation = adUseClient
    .LockType = adLockPessimistic
    .Open
End With
Me.Recordset = rs
...
End Sub

一切正常，表单打开，记录集数据正确显示。

按功能区上的“全部刷新”按钮时出现问题。然后删除记录集的所有记录，只剩下一个记录#Name？每个绑定控件的值。它必须与尝试重新查询和无法执行此操作有关，因为它是内存中的记录集但我无法找到确切或如何修复它的内容。有人可以解释一下我做错了什么，我该如何解决？

P.S。我使用Microsoft ActiveX Data Objects 6.0

Answer 1

我最终解决问题的方法是将表单属性弹出窗口更改为是和 使用表单的KeyDown事件拦截F5和Shift-F9击键（将Form的Key Preview属性设置为Yes）。