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

Chamuanza

Como repor registo na Grid

5 mensagens neste tópico

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á

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Voltas a defenir o datasource e fazes o databind ja tentas-te assim?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Obrigado pela atenção

Sinceramente não tentei porque não sei como fazer, se puderes dar uma ajuda agradecia

Chamuanza

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mostra-me o codigo de como prenches a tua datagrid para partir então de um ponto que eu presumo que ja tenhas entendido :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

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