Ошибка обновления VB6 Sheridan Grid

Question

Я делаю некоторые изменения в программе, написанной другим разработчиком, который использует SSDB Grid.

Я пишу код для метода 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)