Boa tarde a todos,

 

Dúvida no MSFlexGrid

Fiz um Formulário de busca onde os produtos da venda de um determinado Pedido salvos no Banco de Dados Access aparecem listados no MSFlexGrid. Criei um botão de comando chamado "Inserir mais itens" em que acionado, adiciona mais produtos deste Pedido no MSFlexGrid.

Agora vem o erro:

Por exemplo, se estiver um item de um produto já listado no MSFlexGrid, quando clico no botão "Inserir mais itens" para adicionar mais um produto, este novo lançamento apaga o produto listado e fica no lugar dele. Eu quero adicionar mais um produto no grid e não apagar o que já estava.

Por favor sou iniciante em VB alguém tem algum exemplo prático para me ajudar.

Desde já agradeço.

Private Sub cmdInserirMaisItens_Click()

With MSFlexGrid1

  .Rows = .Rows + 1

  MSFlexGrid1.TextMatrix(.Rows - 1, 0) = txtVendaID

  MSFlexGrid1.TextMatrix(.Rows - 1, 1) = txtCodCliente

  MSFlexGrid1.TextMatrix(.Rows - 1, 2) = txtCodProduto

  MSFlexGrid1.TextMatrix(.Rows - 1, 3) = txtProduto

  MSFlexGrid1.TextMatrix(.Rows - 1, 4) = txtPreçoUnitario

  MSFlexGrid1.TextMatrix(.Rows - 1, 5) = txtQuantidade

  MSFlexGrid1.TextMatrix(.Rows - 1, 6) = txtDesconto

  MSFlexGrid1.TextMatrix(.Rows - 1, 7) = txtValorTotal

  End With

End Sub

Boa tarde Treze e amigos do Forum, este código que vc me passou funcionou perfeitamente, mas depois tive um outro problema na sequencia do sistema que não consigo fazer, gostaria de tua ajuda, é o seguinte:

Exemplo: Fiz a busca de um pedido já salvo e reabrí este mesmo pedido no formulário, ok

             Ele traz os dados do pedido já salvos no Banco de Dados Access ok

             Digamos, aparecem dois produtos discriminados no MSFlexGrid ok

             Incluí um terceiro produto no MSFlexGrid com o botão "cmdInserirMaisItens" ok

 

Agora vem a erro:

             Quando clico no botão "cmdAtualizarPedido" este terceiro item não é salvo no

             banco de dados e os dois produtos que já estavam salvos no Banco de dados

             são duplicados no mesmo BD.

 

Por favor me ajude a resolver este erro de código, aí vai o código que fiz:

 

Private Sub cmdAtualizar_Click()

Dim i As Long

 

Dim rstemp As Recordset

Set rstemp = New ADODB.Recordset

rstemp.Open "Select * From VendasDetalhes", con, 1, 3

For i = 1 To MSFlexGrid1.Rows -2

With rstemp

   .AddNew

      !CodVenda = MSFlexGrid1.TextMatrix(i, 0)

      !CodCli = MSFlexGrid1.TextMatrix(i, 1)

      !CodPro = MSFlexGrid1.TextMatrix(i, 2)

      !Produto = MSFlexGrid.TextMatrix(i, 3)

      !PreçoUnitario = MSflexGrid1.TextMatrix(i, 4)

      !QtdVenda = MSFlexGrid1.TextMatrix(i, 5)

      !Desconto = MSFlexGrid1.TextMatrix(i, 6)

      !ValorTotal = MSflexGrid1.TextMatrix(i, 7)

  .Update

End With

Next

rstemp.Close

MsgBox "Pedido de Venda atualizado com sucesso.", vbInformation

End Sub

 

Agradeço desde já.