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

Chamuanza

Problemas com formatação de dados

Recommended Posts

Chamuanza

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

Share this post


Link to post
Share on other sites
Chamuanza

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:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.