• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Chamuanza

Cancelar Novo Registo

3 mensagens neste tópico

Oi pessoal

Tenho este código para cancelar um novo registo, mas não funciona pois mesmo assim a nova linha na Grid aparece na mesma

 Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click


        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim response As MsgBoxResult
        msg = "Vai ser Adicionado um Novo Registo - Quer continuar?"   ' Define message.
        style = MsgBoxStyle.DefaultButton2 Or _
           MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
        title = "Apagar Registo"   ' Define title.
        ' Display message.
        response = MsgBox(msg, style, title)


        If response = MsgBoxResult.No Then

            Exit Sub
        Else
            DataDateTimePicker.Focus()

        End If


    End Sub

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Oi pessoal quanto a esta situação penso ter resolvido a quastão,pelo menos por agora

Foi assim:

No envento Private Sub FamiliaComboBox_LostFocus coloquei o codigo que envio - foi a melhor solução ?

Private Sub FamiliaComboBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles FamiliaComboBox.LostFocus

        Dim msg As String
        Dim title As String
        Dim style As MsgBoxStyle
        Dim resposta As MsgBoxResult
        msg = "Salvar Registo - Quer continuar?"   ' Define message.
        style = MsgBoxStyle.DefaultButton2 Or _
           MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
        title = "Salvar Registo"   ' Define title.
        ' Display message.
        resposta = MsgBox(msg, style, title)


        If resposta = MsgBoxResult.No Then

            Me.PrincipalBindingNavigator.BindingSource.RemoveCurrent()
            Exit Sub
        Else
            'Aplica o save quando sai da cx. texto
            PrincipalBindingNavigatorSaveItem.PerformClick()

        End If

    End Sub

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Uma boa solução é uma solução que funciona :thumbsup:

Não testei, mas também não me parece mal.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora