Adicionar Registos De Uma Listview A Outra

[reyad]

Boas !!!

Tenho de criar duas listviews com o seguinte aspecto:

ListView1:

--- Produto ---- Preço ----

Teclado 20,00 €

Rato 10,00 €

------------------------------

ListView2:

-- Qtd --- Produto ---- Preço ----

2X Teclado 40,00 €

1X Rato 10,00 €

--------------------------------------

Na listview1 já consigo carregar os dados da bd e já ta ok...

agora o problema é a listview2, como faço para q ao clicar na listview1 e escolher um produto apareça a informação como esta na listview2(qtd, produto, preço).

percebem aquilo que eu queria realmente ???

Ajudem-me por favor...

tou mesmo a precisar de ajuda

cumprimentos

[abertoletti]

Deixe-me ver se entendi. Você tem a ListView 1 com todos os produtos. Ao clicar na ListView 1, a ListView 2 deve mudar seu conteúdo para o produto que você escolheu, contendo também a quantidade?

Se realmente isso, você pode criar um SubItem escondido na ListView contendo a quantidade desse produto, para que não seja necessário buscar novamente na base de dados. Algo assim:

Private Sub ListView1_Click()
Dim Objeto As ListItem    
     
     ListView2.ListItems.Clear
     Set objeto = ListView2.ListItems.Add(, , ListView1.ListItems (ListView1.SelectedItem.Index).SubItems(2)) 'Quantidade de produtos
     Objeto.SubItems(1) = ListView1.ListItems (ListView1.SelectedItem.Index).Text 'Nome do produto 
     Objeto.SubItems(2) = ListView1.ListItems (ListView1.SelectedItem.Index).SubItems(1) 'Preço 

End Sub

[reyad]

obrigado pela dica,

vou experimentar

[reyad]

Tou a tentar carregar os dados da minha tabela para a ListView1...

Tenho dois campos, Produto e Preço, agora gostaria de saber se n é assim q faço para adicionar os dados ah listview1....

Dim coluna As ColumnHeader

Set coluna = ListView1.ColumnHeaders.Add(, , "Produto", ListView1.Width / 2)

Set coluna = ListView1.ColumnHeaders.Add(, , "Preço", ListView1.Width / 2)

ListView1.BorderStyle = ccFixedSingle

ListView1.View = lvwReport

Set conexao = New Connection

conexao.CursorLocation = adUseClient

conexao.Open CN

Dim rs As New ADODB.Recordset

rs.Open "SELECT produto, preço FROM produtos", conexao, adOpenDynamic, adLockOptimistic

While Not rs.EOF

ListView1.ListItems rs.Fields("produto")

ListView1.ListItems rs.Fields("preço")

rs.MoveNext

Wend

rs.Close

o erro para q isto n funcione n sera dentro do While, visto q n posso defenir assim a listagem dos campos ??

como resolvo isto ?

cumprimentos

[reyad]

ninguém sabe o q ta errado ?

cumps

[reyad]

o q esta errado para ele n listar os dados vindos da bd ?

n sera da instrucao dentro do while ?

ajudem-me

cumprimentos

[abertoletti]

While Not rs.EOF

ListView1.ListItems rs.Fields("produto")

ListView1.ListItems rs.Fields("preço")

rs.MoveNext

Wend

Não teria que ser ListView1.ListItems.Add? E eu não costumo usar o '.Fields' no Recordset. Não sei se pode ser identificado pelo nome. Eu costumo usar dessa forma: 'rs!produto'

E da forma que está, eu acredito que ele adicionará 2 linhas na ListView, e não uma linha com duas colunas.

Veja o exemplo que dei de como adicionar, na primeira resposta, em que utilizei SubItems da ListView.