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

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？每个绑定控件的值。它必须与尝试重新查询和无法这样做有关，因为它是一个内存记录集，但我找不到确切的内容或如何修复它。谁能解释一下我做错了什么以及如何解决？

附：我使用 Microsoft ActiveX 数据对象 6.0

Answer 1

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