Ir para conteúdo
Fórum Script Brasil
  • 0

Adicionar Registos De Uma Listview A Outra


reyad

Pergunta

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

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0
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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...