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

Chamuanza

Registo Apagado

25 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ou eu não entendi o problema ou então o teu codigo está certo?

Podia explicar melhor sff :S

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

e como faço isso?

já tentei fazer o Form1_Load antes do exit sub mas não me aceita

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

com 

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

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ok..entao tenta assim

me.BindingNavigatorDeleteItem=nothing

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Continua na mesma

será que tem de ser colocado noutro evento?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

tira o codigo para o if da resposta nao,,e deixa so para o sim e ve o que ele faz

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

dá-me um exemplo, pois não estou a perceber a intenção

Já tenho a cuca a detar fumo

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

qual propriedade do BindingNavigatorDeleteItem é que devo meter a none

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

será que querias dizer MascPrincipalBindingNavigator, já coloquei

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

de facto já não apaga o registo (linha), mas agora quando quero mesmo apagar "Sim" tambem não apaga a linha

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

depois de dizeres que sim mete tb isto

Me.MascPrincipalBindingNavigator.BindingSource.RemoveCurrent()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

de nada...estamos aqui uns para os outros..marca como resolvido

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

já cliquei varias vezes mas não aparece como resolvido

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

agora n esta..mas ja o vi com o certo de resolvido lolol

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