AJUDA LISTVIEW

USUARIO.EXCLUIDOS 19/04/2007 14:16:25
#212751

Private Sub preenche_lista()

vValor1 = 0

Me.ListaVenda.ListItems.Clear

scnn = cnnObjetivo

Set rst = New Recordset
rst.Open "Select *from tblVenda Where Fechado = 0 ", scnn, adOpenForwardOnly, adLockReadOnly

Do Until rst.EOF

Set NewList = ListaVenda.ListItems.Add(, " Key " & rst("Codigo"), rst("Codigo"))
NewList.SubItems(1) = "" & rst("CodigoCliente")
NewList.SubItems(2) = "" & rst("CodigoProduto")
NewList.SubItems(3) = "" & rst("Qtde")
NewList.SubItems(4) = "" & rst("Preco")
NewList.SubItems(5) = "" & rst("SubTotal")
'NewList.SubItems(4) = Format(!Preco, "Currency")
'NewList.SubItems(5) = Format(!Subtotal, "Currency")
vValor1 = (vValor1 + rst!Subtotal)
Me.txtTotal.Text = Format(vValor1, "Currency")
Me.txtTotal.Enabled = False

rst.MoveNext
Loop
rst.Requery 1
rst.Close
Set rst = Nothing



End Sub


1o. vc abre a conexão
2o. limpa a listview
3o. vc carrega a listview

SILVERDRAGON 19/04/2007 14:30:18
#212763

Ele da um erro assim:

Invalid property value

e vai nessa linha :

NewList.SubItems(1) = "" & RX("nome")

SILVERDRAGON 19/04/2007 14:58:04
#212780

Ai galera alguem sabe qual é esse erro?




grato

DANIELCPAETE 19/04/2007 15:01:53
#212783 Resposta escolhida

cara fiz este exemplo uma vez de como trabalhar com listview da uma olhada ai nele tem a função de conexão com banco

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=1658

USUARIO.EXCLUIDOS 19/04/2007 15:48:45
#212801

vc colocou as colunas
e na propriedade view = lvwreport

poste o código