Jump to content
Luis Marques

Passar dados incorrectos

Recommended Posts

Luis Marques

Boas, vou tentar explicar o meu problema de maneira a que me percebam.

É assim ao passar dados de uma dadagrid para outra datagrid, passame tudo correctamente, o meu poblema é que acrescentamente sempre uma linha com o valor 0, como resolvo isso sabem??


LM

Share this post


Link to post
Share on other sites
n3lThon

Mostra o código para te podermos ajudar.


dreams.each do |dream|

   dream.make_it_happen

end

Share this post


Link to post
Share on other sites
Luis Marques

Eu numa form onde faço a pesquisa da encomenda tenho este codigo no evento doublecellclick :

       

id_cliente = DataGridView1.Rows(e.RowIndex).Cells(1).Value

        Data = DataGridView1.Rows(e.RowIndex).Cells(2).Value

        descricao = DataGridView1.Rows(e.RowIndex).Cells(3).Value

        responsavel_pd = DataGridView1.Rows(e.RowIndex).Cells(4).Value

        total = DataGridView1.Rows(e.RowIndex).Cells(5).Value

        id_encomenda = DataGridView1.Rows(e.RowIndex).Cells(0).Value

        DataGridView2.Visible = True

        ' O PROVIDER... É COPIAR A CONNECTIONSTRING DA LIGAÇÃO DA BD, NA JANELA PROPIEDADES

        Dim kk As New OleDbConnection(pap.My.Settings.ligacaoBD)

        ' LIGAR A BD

        kk.Open()

       

' PERGUNTAR QUAIS OS DADOS A PROCURAR

        Dim aux As String

        aux = DataGridView1.SelectedRows(0).Cells(0).Value

        ' ACESSO AOS DADOS

        Dim comandosqll = "Select  id_item, id_produto,quantidade,preco,id_imagem from itemencomenda where id_encomenda = " + aux

        Dim cmdd As New OleDbCommand(comandosqll, kk)

        Dim ff As OleDbDataReader = cmdd.ExecuteReader(CommandBehavior.CloseConnection)

        ' CARREGAR OS DADOS

        Dim idx_linhas As Integer

        idx_linhas = 0

        While ff.Read()

            Dim linhas As New DataGridViewRow()

            Form12.DataGridView1.Rows.Add(linhas)

            Form12.DataGridView1.Rows(idx_linhas).Cells(0).Value = ff.Item(0)

            Form12.DataGridView1.Rows(idx_linhas).Cells(1).Value = RTrim(ff.Item(1))

            Form12.DataGridView1.Rows(idx_linhas).Cells(2).Value = RTrim(ff.Item(2))

            Form12.DataGridView1.Rows(idx_linhas).Cells(3).Value = RTrim(ff.Item(3))

            Form12.DataGridView1.Rows(idx_linhas).Cells(4).Value = RTrim(ff.Item(4))

            idx_linhas = idx_linhas + 1

        End While

        ' AJUSTE DAS COLUNAS DO DATAGRIDVIEW

        Form12.DataGridView2.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

        ' FECHAR A BD

        ff.Close()

        'nome = TextBox1.Text

        Form12.Alterar(id_cliente, data, descricao, responsavel_pd, total, id_encomenda, id_item, id_produto, quantidade, preco, id_imagem, nome)

        Me.Visible = False

depois na form onde vou mostrar os dados tenho este codigo:

Sub Alterar(ByVal id_cliente As Integer, ByVal data As Date, _

    ByVal descricao As String, ByVal responsavel_pd As String, _

    ByVal total As Double, ByVal id_encomenda As Integer, ByVal id_item As Integer, ByVal id_produto As Integer, ByVal quantidade As Integer, ByVal preco As Double, ByVal id_imagem As Integer, ByRef nome As String)

        Responsavel_pdTextBox.Text = responsavel_pd

        DataDateTimePicker.Text = data

        Id_clienteTextBox.Text = id_cliente

        Id_encomendaTextBox.Text = id_encomenda

        TotalTextBox.Text = total

        TextBox2.Text = descricao

        Dim idx_linha As Integer

        idx_linha = DataGridView1.Rows.Count - 1

        Dim linha As New DataGridViewRow()

        'DataGridView1.Rows.Add(linha)

        DataGridView1.Rows(idx_linha).Cells(0).Value = id_item

        DataGridView1.Rows(idx_linha).Cells(1).Value = id_produto

        'DataGridView1.Rows(idx_linha).Cells(2).Value = Nome

        DataGridView1.Rows(idx_linha).Cells(2).Value = quantidade

        DataGridView1.Rows(idx_linha).Cells(3).Value = preco

        DataGridView1.Rows(idx_linha).Cells(4).Value = id_imagem

        idx_linha = idx_linha + 1

        Me.Show()

    End Sub


LM

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...

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.