LISTVIEW VB6 ERRO

REINALDOSPINDOL 30/08/2013 11:07:00
#428309
Olá, preciso carregar uma tabela no listview mas está dando erro na linha:
Set List = grid.ListItems.Add (aparece a mensagem - type mismatch)
Já tentei configurar o listview no form e por código, mas de nenhum jeito esse erro desaparece. Por favor me ajudem!

Segue meu código:

Dim List As ListItem
grid.ColumnHeaders.Add , , [Ô]Pedido[Ô], grid.Width / 7
grid.ColumnHeaders.Add , , [Ô]Item[Ô], grid.Width / 7
grid.ColumnHeaders.Add , , [Ô]Cód. Produto[Ô], grid.Width / 7
grid.ColumnHeaders.Add , , [Ô]Qtde.[Ô], grid.Width / 7
grid.ColumnHeaders.Add , , [Ô]Descrição[Ô], grid.Width / 7
grid.ColumnHeaders.Add , , [Ô]Valor Unitário[Ô], grid.Width / 7
grid.ColumnHeaders.Add , , [Ô]Valor Total[Ô], grid.Width / 7


While rsitens.EOF = False
Set List = grid.ListItems.Add
With List
List.Text = rsitens([Ô]númeropedido[Ô])
List.SubItems(1) = rsitens([Ô]item[Ô])
List.SubItems(2) = rsitens([Ô]códigoproduto[Ô])
List.SubItems(3) = rsitens([Ô]quantidade[Ô])
List.SubItems(4) = rsitens([Ô]descrição[Ô])
List.SubItems(5) = rsitens([Ô]valorunitário[Ô])
List.SubItems(6) = rsitens([Ô]valortotal[Ô])
End With
rsitens.MoveNext
Wend
OMAR2011 30/08/2013 16:45:44
#428327
Apenas mudei coisa simples e não ocorreu nenhum erro.
Segue
Private Sub Command10_Click()
Dim rsitens As New ADODB.Recordset
Dim Lst As ListItem [txt-color=#e80000][ô]Mudei para Lst[/txt-color] .é a mesma coisa,tempo na escrita
Grid.ListItems.Clear
rsitens.Open [Ô]Select * From TblVendas[Ô], oConCadC
Grid.View = lvwReport [txt-color=#e80000][ô]Adicionei[/txt-color]
Grid.ColumnHeaders.Add , , [Ô]Pedido[Ô], Grid.Width / 7
Grid.ColumnHeaders.Add , , [Ô]Item[Ô], Grid.Width / 7
Grid.ColumnHeaders.Add , , [Ô]Cód. Produto[Ô], Grid.Width / 7
Grid.ColumnHeaders.Add , , [Ô]Qtde.[Ô], Grid.Width / 7
Grid.ColumnHeaders.Add , , [Ô]Descrição[Ô], Grid.Width / 7
Grid.ColumnHeaders.Add , , [Ô]Valor Unitário[Ô], Grid.Width / 7
Grid.ColumnHeaders.Add , , [Ô]Valor Total[Ô], Grid.Width / 7

While rsitens.EOF = False

Set Lst = Grid.ListItems.Add(, , rsitens(0))
With Lst
Lst.SubItems(1) = rsitens(1)
Lst.SubItems(2) = rsitens(2)
Lst.SubItems(3) = rsitens(3)
Lst.SubItems(4) = rsitens(4)
Lst.SubItems(5) = rsitens(5)
Lst.SubItems(6) = rsitens(6)
End With
rsitens.MoveNext
Wend

Coloca seu codigo deste a abertura até preenchimento do Listview.
Valeu.


End Sub
Faça seu login para responder
Voltar