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

Chamuanza

Problemas com formatação de dados

4 mensagens neste tópico

Um bem aja a todos

Mais uma para aprender

Estou a utilizar esta rotina para obter o resultado das operaçoes de soma ou subtração de valores inseridos em cx. texto e passdos para a datagridview.

já tentei varios conversores para os dados, mas não atino com isto.De certeza que tenho algo mal,mas não consigo chegar a solução

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        'Coloca a cx. texto p/receber valor

        txtBoxBalanco.ReadOnly = False

        'Conta o nº de linhas da grid para ir buscar o valor da ultima celula

        Dim NumeroLinha1 As Integer = Me.dataGridView.Rows.Count - 1

        Dim Ultimobalanco

        'Proceder a operação de somar ou subtrair valores ao ultimo balanco

        If txtBoxDespesa.Text > 0 Then

            MsgBox("Vai Ocorrer uma despesa", MsgBoxStyle.Information, "Inserir Despesa")

            'Obtem o valor da ultima cecula do balanço p/ fazer a operação

            Ultimobalanco = dataGridView(5, NumeroLinha1 - 1).Value

            txtBoxBalanco.Text = Ultimobalanco - txtBoxDespesa.Text

        ElseIf txtBoxReceita.Text > 0 Then

            MsgBox("Vai Ocorrer uma receita", MsgBoxStyle.Information, "Inserir Receita")

            'Obtem o valor da ulima cecula do balanço p/ fazer a operação

            Ultimobalanco = dataGridView(5, NumeroLinha1 - 1).Value

            txtBoxBalanco.Text = Ultimobalanco + txtBoxReceita.Text

        End If

   

        Try

            Dim com As New OleDbCommand

            com.Connection = con

            com.CommandText = "insert into Details values(" & txtBoxNo.Text & ",'" & txtBoxData.Text & "','" & _

                                txtBoxDesignacao.Text & "','" & txtBoxDespesa.Text & "'," & txtBoxReceita.Text & "," & txtBoxBalanco.Text & ")"

            com.ExecuteNonQuery()

            MsgBox("Record Inserted")

            Call Md_FillCombo()

            Call Md_Settings()

            Call Md_ClearAll()

            'Coloca a cx. texto p/receber valr

            txtBoxBalanco.ReadOnly = True

        Catch exp As Exception

            MsgBox(exp.ToString())

        End Try

    End Sub

Na datagridview tenho as colunas com este formato

    txtBoxBalanco.Text = Format(Convert.ToDouble(dSet.Tables(0).Rows(a).Item(5)), "##,##0.00")

Quando aplico na txtBoxDespesa um valor inteiro tudo bem, funciona

Quando aplico na txtBoxDespesa um valor de 45,5 dá o erro - "O numero de valor de consulta e de campos de destino não é o mesmo"

Quando aplico na txtBoxDespesa um valor de 45.5, funciona mas assume um valor de 455,00

desde já agradeço a atenção

Chamuanza

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Penso ter resolvido o problema - Faltava-me plicas no

com.CommandText = "insert into Details values(" & txtBoxNo.Text & ",'" & txtBoxData.Text & "','" & _

                              txtBoxDesignacao.Text & "','" & txtBoxDespesa.Text & "','" & txtBoxReceita.Text & "','" & txtBoxBalanco.Text & "')"

:wallbash:

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