Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

Chamuanza

Cancelar Novo Registo

Mensagens Recomendadas

Chamuanza    2
Chamuanza

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Chamuanza    2
Chamuanza

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade