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

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
nokPT

Experimenta DataGridView1.Clear() antes de começar a fazer a cópia


Ricardo Timóteo

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.