Ir para o conteúdo
Chamuanza

Como repor registo na Grid

Mensagens Recomendadas

Chamuanza    2
Chamuanza

Oi Pessoal

Tenho este código que passo a expor:

  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?"   ' Define message.
        style = MsgBoxStyle.DefaultButton2 Or _
           MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
        title = "MsgBox Demonstration"   ' Define title.
        ' Display message.
        response = MsgBox(msg, style, title)


        If response = MsgBoxResult.Yes Then

            Dim NumerodeLinhaApagada As Integer = Me.PrincipalDataGridView.CurrentRow.Index()
            Dim ValorApagadoDespesa As Double = Me.PrincipalDataGridView.Item(3, NumerodeLinhaApagada).Value
            Dim ValorApagadoDesposito As Double = Me.PrincipalDataGridView.Item(4, NumerodeLinhaApagada).Value

            Dim NumerodeLinhas As Integer = Me.PrincipalDataGridView.Rows.Count - 1

            'Faz o acerto do balanço quando se elimina uma linha
            For Acertos = NumerodeLinhaApagada + 1 To NumerodeLinhas - 1

                Me.PrincipalDataGridView.Item(5, Acertos).Value = Me.PrincipalDataGridView.Item(5, Acertos).Value + ValorApagadoDespesa
                Me.PrincipalDataGridView.Item(5, Acertos).Value = Me.PrincipalDataGridView.Item(5, Acertos).Value - ValorApagadoDesposito

            Next
            SomarColuna()

            'Faz a verificaçãode valores
            TextBox4.Text = Format(Convert.ToDouble(TextBox2.Text - TextBox1.Text), "##,##0.00 €")

            'Aplica o save quando sai da cx. texto
            PrincipalBindingNavigatorSaveItem.PerformClick()

        ElseIf response = MsgBoxResult.No Then
            SomarColuna()

            Exit Sub

        End If

    End Sub

Quando clico para apagar um registo aparece a mensagem se quero continuar

Se "sim" tudo bem, funciona

Se "não" o registo é apagado da grid, embora não seja apagado da BD, mas só o consigo repor na grid depois de fechar o form e reabri o form  novamente.

Deve haver maneira de fazer o refresh da BD e da grid

Alguem me pode dar uma dica?

Ainda não consegui atinar com a opção de aplicar o "Revolvido" nos topicos

Obrigado desde já

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Chamuanza    2
Chamuanza

Eu comecei por criar a aplicação através do wizard, por isso acho que o código que pretendes está escondido.

De qualquer maneira aqui vai o Load

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'TODO: This line of code loads data into the 'BalancoFamiliarDataSet.Principal' table. You can move, or remove it, as needed.

        Me.PrincipalTableAdapter.Fill(Me.BalancoFamiliarDataSet.Principal)

        Dim NumeroLinhas As Integer = Me.PrincipalDataGridView.Rows.Count - 1

     

        Call SomarColuna()

        PrincipalDataGridView.CurrentCell = PrincipalDataGridView.Item(0, NumeroLinhas - 1)

        'acha a diferença para verificar

        TextBox4.Text = Format(Convert.ToDouble(TextBox2.Text - TextBox1.Text), "##,##0.00 €")

        If PrincipalDataGridView.Item(5, NumeroLinhas - 1).Value <> TextBox4.Text Then

            TextBox4.BackColor = Color.Red

        Else

            TextBox4.BackColor = Color.White

        End If

    End Sub

Chamuanza

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 os nossos Termos de Uso e Política de Privacidade