Set rs = New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.Open str, CurrentProject.Connection, adOpenStatic, adLockBatchOptimistic
Set .ActiveConnection = Nothing
End With
Set Me.订单明细子窗体.Form.Recordset = rs
-----------------------------------------------------
你的是建立一个类模块
我直接放在窗体模块了,我是根据你的思路,建立一个记录集,然后断开连接。这样在子窗体更新数据就不会自动保存了。然后再建立另外一个记录集(我用的是DAO),保存到需要保存的表里