|
|
Postada em 30/08/2006 17:08 hs
Pessoal eu corrigi o erro que o Cardoso G encontrou no itmx, alterei para itmx6 e mesmo assim deu o mesmo erro, também fiz o q o ghost_jlp me indicou, mesmo não tendo valores nulos na tabela e não adiantou o erro continuou!
Caramba deve ser um erro tão bobo e não estou conseguindo acha-lo! que coisa não.
Estou tentando aqui e de olho no forum aguardando uma luz "um empurrão pra ver se vai rs rs" quem puder ajudar fico muito agradecido |
|
|
|
|
|
|
|
Postada em 30/08/2006 17:20 hs
coloque a propriedade .value no rs. e veja se esta trazedno alguma coisa no rs_lhist_exc(0).value Set itmx6 = lv_historico.ListItems.Add(, , Rs_LHist_Exc(0).value, 1) |
|
|
|
|
|
Postada em 30/08/2006 17:27 hs
Sim ele traz o registro da tabela, mas quando coloco o cursor do mouse sobre o itmx6 ele me mostra um tooltip dizendo Nothing |
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2006 07:51 hs
tente colocar assim, se o ",1" Set itmx6 = lv_historico.ListItems.Add(, , Rs_LHist_Exc(0).value) |
|
|
|
wncruz
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2006 09:02 hs
Tenta colocar na linha Dim itmx6 As ListItem
assim Dim itmx6 As MSComctlLib.ListItem
Sds,
"O segredo é quebrar os problemas em pequenos pedaços administráveis. Se você lidar com eles, termina antes de saber disso."
 Watson Gomes da Cruz
|
|
|
|
wncruz
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 31/08/2006 10:52 hs
Sds,
"O segredo é quebrar os problemas em pequenos pedaços administráveis. Se você lidar com eles, termina antes de saber disso."
Watson Gomes da Cruz
|
|
|
|
