Question

我正在对使用SSDB网格的另一个开发人员编写的程序进行一些更改。

我正在为BeforeUpdate方法编写代码。

On Error GoTo BeforeUpdate_Err

Dim ans%

ans% = MsgBox("These changes will be committed to the database. These changes cannot be undone. " & _
                    "Would you like to continue?", vbYesNo, "Confirm Changes")

If ans% = 7 Then
    Grd_Collection.CancelUpdate
End If

Exit Sub

BeforeUpdate_Err:
    MsgBox (Err.Description)

该网格的唯一其他代码是InitColumnProps方法。

但是，在碰到Exit Sub行之后，我收到一条错误消息“更新错误”。

我已经在代码中搜索了此代码是否为硬编码，但并非如此，因此它来自网格。

是什么原因导致该错误以及如何解决？

Answer 1

BeforeUpdate方法是否传递整数？ (Cancel As Integer)还是什么？

因此，您应该只需要对此进行更改（并整理一下）代码即可：

On Error GoTo BeforeUpdate_Err

If MsgBox("These changes will be committed to the database. These changes cannot be undone. " & _
                    "Would you like to continue?", vbYesNo, "Confirm Changes") = vbNo Then

    Cancel = 1
End If

Exit Sub

BeforeUpdate_Err:
    MsgBox (Err.Description)

VB6更新错误Sheridan网格

1 个答案: