LISTVIEW.. NULL

USUARIO.EXCLUIDOS 13/08/2007 18:18:24
#230775
alguem me ajude pf.

estou a passar para uma listview campos de bd em acess 97. mas ha campos que n contem valores e da-me erro.

IVALID USE OF NULL

como posso contornar este erro?

Alguem me ajude pf
ZULLIM 13/08/2007 18:56:57
#230781
O LitView não aceita valores nulos. Ántes de enviar os valores para o ListeView você deve verificar se é nulo.
RODRIGOGBGOMES 13/08/2007 19:45:46
#230785
faz o seguinte...

private sub btnEnviaListView()
on error resume next

'rotina q envia pro listview

end Sub


assim nao da o erro mais ... vale a pena.
ou entao isnull tbm serve.

private sub btnEnviaListView()

if not isnull (rs("campo")) then 
   'rotina envia listview
end if

end Sub
USUARIO.EXCLUIDOS 14/08/2007 07:28:10
#230802

Ou ainda...no caso para n deixar o ListView com buracos pode fazer isso tb


If IsNull(Tabela!campo) = True Then

ItemdoListView..blablabla. = " "

End if

boa sorte e sucesso
CLEVERTON 14/08/2007 15:18:18
#230866
vc faz assim

listview1.listitems(i).subitems(1) = "" & rst("Nome")
USUARIO.EXCLUIDOS 14/08/2007 15:32:42
#230870
Eu fiz assim.
Dim Lstc As ListItem
With rs

.Open "select * from CARRO", cn, adOpenKeyset, adLockOptimistic
If .RecordCount = 0 Then
MsgBox "Não existe Cadastro!"
Else
frmprincipal.ListView2.ListItems.Clear
Do Until rs.EOF
Set Lstc = frmprincipal.ListView2.ListItems.Add(, , rs("ID_CARRO"))
If Not IsNull(rs("PLACA")) Then Lstc.SubItems(1) = rs("PLACA")
If Not IsNull(rs("MARCA")) Then Lstc.SubItems(2) = rs("MARCA")
If Not IsNull(rs("MODELO")) Then Lstc.SubItems(3) = rs("MODELO")
If Not IsNull(rs("ANO")) Then Lstc.SubItems(4) = rs("ANO")
If Not IsNull(rs("VALOR_PAG")) Then Lstc.SubItems(5) = Format$(rs("VALOR_PAG"), "R$ ###,###.00")
If Not IsNull(rs("VALOR_VENDA")) Then Lstc.SubItems(6) = Format$(rs("VALOR_VENDA"), "R$ ###,###.00")
If Not IsNull(rs("VALOR_FIM")) Then Lstc.SubItems(7) = Format$(rs("VALOR_FIM"), "R$ ###,###.00")
If Not IsNull(rs("LUCRO")) Then Lstc.SubItems(8) = Format$(rs("LUCRO"), "R$ ###,###.00")
If Not IsNull(rs("DATA_IN")) Then Lstc.SubItems(9) = rs("DATA_IN")
If Not IsNull(rs("DATA_FIM")) Then Lstc.SubItems(10) = rs("DATA_FIM")
If Not IsNull(rs("OBS")) Then Lstc.SubItems(11) = rs("OBS")
rs.MoveNext
Loop
End If
.Close
End With

End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar