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

Chamuanza

Registo Apagado

Mensagens Recomendadas

Chamuanza    2
Chamuanza

Oi pessoal - Alguem que me dê uma dica de como resolver a situação  :wallbash:

estou com o VB2008 e a BD.mdf

Tendo eu este código no evento BindingNavigatorDeleteItem_Click, qual a razão do registo ser apagado da grid mesmo quando digo que não.

É certo que se eu não gravar, o registo acaba por não ser apagado da BD, mas só retorna se eu sair da form e voltar.

Como fazer para que o registo não seja apagado da Grid, quando a resposta a msgbox for "Não"

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

        Dim msg As String

        Dim title As String

        Dim style As MsgBoxStyle

        Dim response As MsgBoxResult

        msg = "Vai ser Eliminado um Registo - Quer continuar?"

        style = MsgBoxStyle.DefaultButton2 Or _

          MsgBoxStyle.Critical Or MsgBoxStyle.YesNo

        title = "MsgBox Demonstration"  ' Define title.

        ' Display message.

        response = MsgBox(msg, style, title)

   

        If response = MsgBoxResult.No Then

            MsgBox("O Registo não foi eliminado", MsgBoxStyle.Information)

            Exit Sub

        ElseIf response = MsgBoxResult.Yes Then

         

            MascPrincipalBindingNavigatorSaveItem.PerformClick()

        End If

    End Sub

Desde Já Obrigado pela atenção

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Chamuanza    2
Chamuanza

Oi, vou tentar explicar melhor a situação

Tenho uma série de registos introduzidos na BD

Em dado momento quero apagar um dos registos (Linha) da grid, clico no botão delete e faco accionar o evento assinalado "BindingNavigatorDeleteItem_Click", no entanto verifico que afinal não era aquele registo(linha) que era para ser apagado, e respondo à msgbox que "não" e o evento faz o exit sub.

No entanto o registo (linha) é apagado da Grid

Eu penso que o registo (linha)  não deveria apagado da grid, uma vez que a rotina faz o exit sub

O que eu queria era que o registo (linha) não fosse apagado da grid quando eu respondo "não" a msgbox.

É certo que se eu não gravar os dados após dizer "não" na resposta a msgbox a linha embora desapareça da grid não é eliminada da BD. No entanto só me aparece na grid se eu sair do Form e retornar ao Form.

Obrigado pela atenção prestada

Chamuanza

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Chamuanza    2
Chamuanza

com 

Me.MascPrincipalTableAdapter.Fill(Me.MascaraDataSet.MascPrincipal)

mas ao fazer isto antes do exit sub vai apagar o primeiro registo (linha)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Chamuanza    2
Chamuanza

coloquei

Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorDeleteItem.Click

        Dim msg As String

        Dim title As String

        Dim style As MsgBoxStyle

        Dim response As MsgBoxResult

        msg = "Vai ser Eliminado um Registo - Quer continuar?"

        style = MsgBoxStyle.DefaultButton2 Or _

          MsgBoxStyle.Critical Or MsgBoxStyle.YesNo

        title = "MsgBox Demonstration"  ' Define title.

        ' Display message.

        response = MsgBox(msg, style, title)

        If response = MsgBoxResult.No Then

            MsgBox("O Registo não foi eliminado", MsgBoxStyle.Information)

            Me.MascPrincipalDataGridView.Refresh()

            Exit Sub

        ElseIf response = MsgBoxResult.Yes Then

            MascPrincipalBindingNavigatorSaveItem.PerformClick()

        End If

e continua na mesma

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
esquima    0
esquima

antes de fazeres o que eu disse.. vai as properties do deleteitem do bindnavigator e mete a none ..depois corre o teu codigo

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
esquima    0
esquima

nas propriedades do binding navigator faz scroll ate encontrares o delete item e mete a none

se esse e o nome do teu binding navigator entao e ai..dps diz me se deu

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