Listview

[Almarante]

Oi pessoal preciso de ajuda.

Estou fazendo um sistema de pedidos e os produtos deste pedido são mostrados em um listview, enquanto lanço tudo bem os produtos são carregados

na listview e salvos na tabela ItensDoPedido.

Porem quando abro o form a listview está vazia, gostaria que ela viesse com os itens do pedido corespondente e que quando passace para outro registro troucesse os itens do mesmo.

alguém pode me ajudar?

Copiei o exemplo do nosso amigo Andeson que está na página 2 do tópico listview, mas deu erro

" ERRO DE CONEXAO COM BANCO DE DADOS"

PROSEGUE E GERA OUTRO ERRO

" ERRO DE COMPILAÇÃO"

" MÉTODO OU MEMBRO DE DADOS NÃO ENCOTRADO"

" ADDITEM " APARECE COM CAUSADOR DO ERRO.

[kuroi]

não entendi, almarante. se você já tem o codigo pra preencher a listview, e esta funcionando, porque você simplesmente não copia esse mesmo codigo pra hora q o formulario for aberto??

[Almarante]

Kuroi esse é o codigo que usso para preencher o listview quando estou digitando um pedido, mas não consigo faze-lo preencher o listview quando abro o form.

Private Sub txtValUnitario_KeyPress(KeyAscii As Integer)
Dim list As ListItem
Dim total As Single
Dim QTD As Single
Dim ValUnit As Single
Dim ValItem As Single
'**************************************************
If KeyAscii = vbKeyReturn Then
  If txtQuantidade.text = "" Then
   MsgBox "O Campo Está Vazio, Vacê deve digitar um valor", vbInformation, "Aviso"
   txtQuantidade.SetFocus
ElseIf txtValUnitario.text = "" Then
       MsgBox "O Campo valor Unitário está vazio, você deve digitar um valor!", vbInformation, "Aviso"
       txtValUnitario.SetFocus
Else
txtValItem.text = 0
QTD = txtQuantidade.text
ValUnit = txtValUnitario.text
total = txtValItem.text
'**************************************************
total = QTD * ValUnit

txtValItem.text = total


'**************************************************
Set list = lstItensNf.ListItems.Add(, , txtItem.text)
list.Tag = txtItem.text
list.SubItems(1) = txtCodProd.text
list.SubItems(2) = txtDescricao.text
list.SubItems(3) = txtUnidade.text
list.SubItems(4) = txtQuantidade.text
list.SubItems(5) = txtIndice.text
list.SubItems(6) = txtValUnitario.text
list.SubItems(6) = Format(CCur(txtValUnitario.text), "R$ #,##0.0000;(R$ #,##0.0000")
list.SubItems(7) = txtValItem.text
list.SubItems(7) = Format(CCur(txtValItem.text), "R$ #,##0.0000;(R$ #,##0.00")
'**************************************************
'Esta Rotina soma o valor da Nota Fiscal
txtValorDaNota.text = total + txtValorDaNota.text
txtValorDaNota.text = Format(CCur(txtValorDaNota.text), "R$ #,##0.00")
'********************************************************
'Esta Rotina define o Valo do ICMS
 txtValorIcms.text = txtValorDaNota.text / 100 * txtICMS.text
'************************************************************
'Esta Rotina Grava Itens da Nota Fiscal
txtItem.text = txtItem.text + 1
adoItensNF.Recordset.AddNew
adoItensNF.Recordset("Item") = txtItem.text
adoItensNF.Recordset("CodigodoProduto") = txtCodProd.text
adoItensNF.Recordset("DescricaodoProduto") = txtDescricao.text
adoItensNF.Recordset("Quantidade") = txtQuantidade.text
adoItensNF.Recordset("ValorUnitario") = txtValUnitario.text
adoItensNF.Recordset("ValordoItem") = txtValItem.text
adoItensNF.Recordset("Unidade") = txtUnidade.text
adoItensNF.Recordset("Parametro") = txtIndice.text
adoItensNF.Recordset("Documento") = txtnumeronota.text
adoItensNF.Recordset.Update
adoItensNF.Recordset.MoveNext
adoItensNF.Recordset.MovePrevious
'***********************************************************
Call Indice

Me.Text2.text = TotalIndice
Text2.text = Format(Format(Text2.text, "###,###.00"), "@@@@@@@@@@")
'*******************************************************
Me.txtQuantidade.text = ""
Me.txtValUnitario.text = ""
txtCodProd.text = ""
txtDescricao.text = ""
txtUnidade.text = ""
txtIndice.text = ""
txtValItem.text = ""
Me.txtCodProd.SetFocus
  End If
End If
End Sub

Editado Dezembro 21, 2010 por kuroi
Adicionar tag CODE

[Almarante]

não entendi, almarante. se você já tem o codigo pra preencher a listview, e esta funcionando, porque você simplesmente não copia esse mesmo codigo pra hora q o formulario for aberto??

Kuroi Não Consegui Fazer com o mesmo código, porem tentei esses dois codigos e os dois dão a mesma menssagem de erro,

Erro em tempo de Execussão

Tipos incompativeis.

O erro está na linha sublinhada

Private Sub Preenche_Lista()
Dim Lista As ListItems
'On Error Resume Next
    adoItensNF.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
    adoItensNF.RecordSource = "SELECT * FROM ItensdaNotaII WHERE Documento LIKE'" + txtListView.text + "'ORDER BY Item" '", stCaminhoBD
    adoItensNF.Refresh
    lstItensNf.ListItems.Clear
Do While Not adoItensNF.Recordset.EOF
    [u]Set Lista = lstItensNf.ListItems.Add(, , adoItensNF.Recordset("Item"))[/u]
        Lista.Add.SubItems(1) = adoItensNF.Recordset("CodigodoProduto")
        Lista.Add.SubItems(2) = adoItensNF.Recordset("DescricaodoProduto")
        Lista.Add.SubItems(3) = adoItensNF.Recordset("Unidade")
        Lista.Add.SubItems(4) = adoItensNF.Recordset("Quantidade")
        Lista.Add.SubItems(5) = adoItensNF.Recordset("Parametro")
        Lista.Add.SubItems(6) = adoItensNF.Recordset("ValorUnitario")
        Lista.Add.SubItems(7) = adoItensNF.Recordset("ValordoItem")
        Lista.Add.SubItems(8) = adoItensNF.Recordset("Documento")
        Lista.Add.SubItems(9) = adoItensNF.Recordset("Data")
        Lista.Add.SubItems(10) = adoItensNF.Recordset("Codigo")
Loop
Exit Sub
''Trataerro:
       'MsgBox Err.Description, vbCritical, "Erro de Sistema"
       
End Sub

Public Sub PreencheLista()
Dim Lista As ListItems
Dim i As Integer


lstItensNf.ListItems.Clear
If adoItensNF.Recordset.RecordCount = 0 Then Exit Sub


   While Not adoItensNF.Recordset.EOF
             [u]Set Lista = lstItensNf.ListItems.Add(, , adoItensNF.Recordset(0))[/u]
                 For i = 1 To 10
                    Lista.Add.SubItems(i) = adoItensNF.Recordset(i)
                    
                 Next i
                 rs.MoveNext
  Wend
End Sub

Editado Dezembro 20, 2010 por Almarante

[kuroi]

almarante, Lista tem q ser do tipo ListItem e não ListItems.

depois, se continuar dando erro, tente:

Set Lista = lstItensNf.ListItems.Add(, , CStr(adoItensNF.Recordset("Item")))

[Almarante]

Kuroi tentei as duas forma mas não deu certo ocorre um erro na segunda linha,

"METODO OU MEMBRO DE DADOS NÃO ENCOMTRADOS"

Set Lista = lstItensNf.ListItems.Add(, , CStr(adoItensNF.Recordset("Item")))
        Lista[color="#FF0000"].Add.[/color]SubItems(1) = adoItensNF.Recordset("CodigodoProduto")

[kuroi]

é verdade, não é pra ser Lista.Add.SubItems, é pra ser somente Lista.SubItems, tenta ai.

lembrando tb q Lista tem q tar decalarado como ListItem mesmo. ListItems com s no final seria uma colecao de objetos ListItem.

[Almarante]

Kuroi, fiz do jeito que você falou mas quando abro o form trava tudo como se entrace num loop infinito.

[kuroi]

é mesmo, faltou um adoItensNF.Recordset.MoveNext na ultima linha antes de fechar o loop.

[Almarante]

Kuroi eu Consegui desta forma abaixo, acrescentado a linha AdoitensNf.recordset.MoveNext, ainda trava.

Public Sub ListaCheia()
Dim list As ListItem

adoItensNF.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
adoItensNF.RecordSource = "SELECT * FROM ItensdaNotaII  WHERE Documento LIKE'" + txtnumeronota.text + "'ORDER BY Item"  '", stCaminhoBD
adoItensNF.Refresh
lstItensNf.ListItems.Clear
 While Not adoItensNF.Recordset.EOF
Set list = lstItensNf.ListItems.Add(, , txtItem.text)
list.Tag = txtItem.text
list.SubItems(1) = txtCodProd.text
list.SubItems(2) = txtDescricao.text
list.SubItems(3) = txtUnidade.text
list.SubItems(4) = txtQuantidade.text
list.SubItems(5) = txtIndice.text
list.SubItems(6) = txtValUnitario.text
list.SubItems(6) = Format(CCur(txtValUnitario.text), "R$ #,##0.0000;(R$ #,##0.0000")
list.SubItems(7) = txtValItem.text
list.SubItems(7) = Format(CCur(txtValItem.text), "R$ #,##0.0000;(R$ #,##0.00")
adoItensNF.Recordset.MoveNext
Wend

adoItensNF.Recordset.Close
lstItensNf.Refresh


End Sub

[kuroi]

hum, esse codigo q você passou esta funcionando, então??