求助：更新被挂起

yanghua1900363

好多天了，很纠结！请大家帮帮忙！
我现在用的数据库中部分直接导入了access2007罗斯文实例数据库的“记录集封装程序”、“错误处理”和“实用工具”3个模块，在处理一个字段值时，程序运行被挂起，并提示：“"在不使用 AddNew 或 Edit 的情况下，更新 (Update) 或取消更新 (CancelUpdate)。 (3020) 记录集封装程序.Update"”  下边是编辑这个字段的代码。
     Dim rsw As New 记录集封装程序
    If rsw.OpenRecordset("订单明细表", "[订单明细ID]=" & MxorderID) Then
        With rsw.Recordset
            If IsCompletedOrderMx(MxorderID) = True Then
                      rsw.Edit
                       ![状态id] = shipped_OrderItemStatus
                      rsw.Update            
                           SetMxStatus = rsw.Update
                End If
        End With
    End If
补充说明：这段代码在编译过程中是通过的，运行过程中出现了问题。 要编辑的字段值结果是更新过了，但每次在更新前更新动作被挂起，进入调试界面

Agent

有没做关闭记录集的操作啊?

andymark

上图的错误和上面的代码好像没关联
请上传示例

yanghua1900363

andymark 发表于 2012-11-18 15:49
上图的错误和上面的代码好像没关联
请上传示例

好的 谢谢！晚上整理一下 就上传

yanghua1900363

这就是我的实例，请各位指教！