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

Luis Marques

Passar dados incorrectos

7 mensagens neste tópico

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??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Antes de começar a fazer a cópia?? como assim...

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