Вылетает VB при KeyPress на гриде от ComponentOne

[shady]

Подскажите пожалуйста, есть 2 абсолютно одинаковых кода, различие лишь в событиях.
Первый - DblClick, второй - KeyPress

Код: Выделить всё

Private Sub dgSelContract_DblClick()
    Select Case globIDS
        Case 1
            frmCreateNew.dcContract(0).Text = rstFindCustCont("IDContr").Value
            frmCreateNew.dcContract(0).BoundText = rstFindCustCont("ID").Value
            frmCreateNew.dcContract(1).Text = rstFindCustCont("IDContr").Value
            frmCreateNew.dcContract(1).BoundText = rstFindCustCont("ID").Value
        Case 2
            frmCreateNew.dcContract(1).Text = rstFindCustCont("IDContr").Value
            frmCreateNew.dcContract(1).BoundText = rstFindCustCont("ID").Value
    End Select
    rstFindCustCont.Close
Set rstFindCustCont = Nothing
Unload Me
End Sub


Код: Выделить всё

Private Sub dgSelContract_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Select Case globIDS
        Case 1
            frmCreateNew.dcContract(0).Text = rstFindCustCont("IDContr").Value
            frmCreateNew.dcContract(0).BoundText = rstFindCustCont("ID").Value
            frmCreateNew.dcContract(1).Text = rstFindCustCont("IDContr").Value
            frmCreateNew.dcContract(1).BoundText = rstFindCustCont("ID").Value
        Case 2
            frmCreateNew.dcContract(1).Text = rstFindCustCont("IDContr").Value
            frmCreateNew.dcContract(1).BoundText = rstFindCustCont("ID").Value
    End Select
        rstFindCustCont.Close
    Set rstFindCustCont = Nothing
       
        Unload Me
    End If
End Sub

Вопрос. При даблклике отрабатывает нормально, а при кейпресс (по нажатию Enter) просто вылетает. Почему такое промсходит? м.б. баг компонента, который я использую, или я что-то не правильно сделал?

[SergT]

Поставь обработку ошибок! Пусть VB сам подскажет.

On error goto Err
..............
err:
MsgBox err.Description

Или в опциях проекта - Stop on all errors.
IMHO:
Обработка ошибок - дело муторное, порой занимает чуть ли не половину времени создания проекта, но.. овчинка выделки стоит! Можешь не проверять, просто поверь !

[shady]

Поставь, сперва, обработку ошибок! Пусть VB сам подскажет

Ошибки не происходит....
Если поставить брейк на

Код: Выделить всё

Set rstFindCustCont = Nothing

и по F8 пройти до конца, то VB вылетает, без ошибок и сообщений. Я в принципе понимаю где моя ошибка. Но незнаю, пока, как по другому сделать.
Моя ошибка в том что

Код: Выделить всё

Unload Me
End If

[alibek]

Да нет, так, в принципе, можно. Правда не везде.
Попробуй форму не выгружать, а скрывать (.Hide). А уже после скрытия выгружать.

[SergT]

Попробуй еще сменить событие _KeyPress на _KeyUp или _KeyDown
Только код клавиши там иначе ... Enter - vbKeyReturn
Видимо форма не успела отработать событие нажатия, а ее пытаются выгрузить?

[shady]

Спасибо, сделал, правда немного иначе.
Видимо гриду не нравилось, что я в его событии делаю Unload формы.