LISTVIEW NAO FUNCIONA

LEAO10 13/05/2011 16:31:48
#373885

Olá a todos VBManíacos,

Estou me deparando com algo que sempre fiz e sempre funcionou, mas agora não está... acho que estou zezando em algum detalhe, só pode...

sql = [Ô]select * from Vendas where Comprador = [Ô] & ID & [Ô][Ô] [ô]numeral
Set RsTemp = Arq.OpenRecordset(sql)

[ô]****************************************************************************
If Not RsTemp.RecordCount = 0 Then
RsTemp.MoveFirst

Do Until RsTemp.EOF
Set lv = List1.ListItems.Add()
lv.Tag = RsTemp!Comprador
lv.Text = RsTemp!Comprador & [Ô][Ô]

lv.SubItems(1) = RsTemp!Data: MsgBox RsTemp!Data

ItemCodVeiculo = RsTemp!CodVeiculo [ô]: MsgBox ItemCodVeiculo
DadoDoVeiculo [ô]Puxa o nome do veiculo e a placa

lv.SubItems(2) = NomeVeiculo & [Ô][Ô]: MsgBox NomeVeiculo

lv.SubItems(3) = NomePlaca & [Ô][Ô]: MsgBox NomePlaca
RsTemp.MoveNext
Loop
RsTemp.MoveFirst
End If

End Sub

[txt-color=#0000f0]Coloquei um msgbox para ver se está setando a os dados, e aparece no msgbox o nome do veiculo e a placa, mas o grid do list view não aparece nada[/txt-color]

Desde já agradeço...