LISTVIEW

USUARIO.EXCLUIDOS 08/06/2007 17:51:09
#220431
olá...estou com um problema no listview...

eu estou com um grid com as informacoes de uma venda...

e gostaria q quando eu clicasse em uma linha desse grid...fosse jogado num list o nome dos produtos da venda...

ai fikaria um desenho +/- assim

______________ _______________
| | | |
| | | |
| | ==> | |
| | <== | |
| | | |
______________ _______________


esses quadrados sao os lists...e como meu sistema é de locação...os itens da locacao serao carregados no primeiro list...ai qdo eu seleciono o item e clico no botao "==>" o item é apagado do primeiro list e colocado do segundo...pra depois clicar em outro botao e realizar a devolucao...

eu gostaria de saber como carrega os lists com os nomes e se possivel como faz pa passa o item de um para outro

Desde Já Agradeco...
USUARIO.EXCLUIDOS 08/06/2007 18:21:18
#220435
Informações de uma venda contém a chave necessária para encontrar os registros nas tabelas ?

Caso positivo:

Utilize o evento Click do Grid
Faça uma consulta SQL utilizando os valores do grid como parametro
Limpe e preencha o List

Qual destes passos vc encontra dificuldade ?
USUARIO.EXCLUIDOS 08/06/2007 18:34:02
#220437
o sql pa pega o codigo da locacao e pega o nome do produto eu jah fiz

a unica coisa q eu qria sabe é como adiciona o nome dos produtos da locacao no listview...e depois seleciona um produto e clica no botao "==>"...pra passa esse produto no otro list...depois clica em realizar devolucao e faz o processo de devolucao...
USUARIO.EXCLUIDOS 08/06/2007 18:54:33
#220440
O lstProdutos é um ListView que está no próprio form.
Utilizo uma Functions para reaproveitar em outras partes do código:
  Call InsereListvieW( CODIGO, _
                       descricao, _
                       MARCA, _
                       UNIDADE, _
                       PRECO_BASE, _
                       P_ATAC, _
                       LO_ATACADO, _
                       P_VAR, _
                       LO_VAREJO, _
                       COUNT)


Aqui está a function que adiciona propriamente dita

Private Sub InsereListvieW(CODIGO As String, _
                           DS_PRODUTO As String, _
                           MARCA As String, _
                           UNIDADE As String, _
                           P_BASE As Double, _
                           P_ATAC As Double, _
                           LO_ATAC As Double, _
                           P_VAR As Double, _
                           LO_VAR As Double, _
                           item As Long)

'Inserção de Produtos na list
Set LItem = lstProdutos.ListItems.Add(, , CODIGO)

LItem.SubItems(1) = DS_PRODUTO
LItem.SubItems(2) = MARCA
LItem.SubItems(3) = UNIDADE
LItem.SubItems(4) = Format(P_BASE, "#,##0.00")
LItem.SubItems(5) = Format(P_ATAC, "#,##0.00")
LItem.SubItems(6) = LO_ATAC
LItem.SubItems(7) = Format(P_VAR, "#,##0.00")
LItem.SubItems(8) = LO_VAR
LItem.SubItems(9) = Format(item, "000000")

InsereProdutoListvieW = True

End Sub


PS: VC precisa acessar as Properties Pages do ListView e colocar as ColumHeaders que for utilizar.

No site um outro user postou um exemplo mais completo, veja se atende melhor suas necessidades:
http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=6367&TxtSearch=listview&CmbSort=&varPagina=1
Tópico encerrado , respostas não são mais permitidas
Voltar