Tenci
|
GUARUJÁ SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2008 12:58 hs
ESTOU CARREGANDO UM MSFLEXGRID, E QUANDO MANDO CARREGAR, APARECE O SEGUINTE ERRO:
"run time erro: '94'" "invalid use of null"
obs esse erro ocorre qdo coloco o rs!cidade...,rs!uf...
o cod q estou usando e esse: MSFlexGrid.Rows = rs.RecordCount + 1
I = 1 Do While Not rs.EOF MSFlexGrid.TextMatrix(I, 0) = rs!Status MSFlexGrid.TextMatrix(I, 1) = rs!seqpessoa MSFlexGrid.TextMatrix(I, 2) = rs!nomerazao MSFlexGrid.TextMatrix(I, 3) = rs!fantasia MSFlexGrid.TextMatrix(I, 4) = rs!cidade ' MSFlexGrid.TextMatrix(I, 5) = rs!uf I = I + 1 rs.MoveNext Loop ColorirGrid End Sub
obrigado pela colaboracao de todos.
|
|
|
|
|
Postada em 07/08/2008 13:02 hs
Algum dos campos que vem do rs tá vazio, qual linha que deu o erro?
|
|
|
Maxcim
|
GUARULHOS SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2008 16:43 hs
MSFlexGrid.TextMatrix(I, 3) = iif(isnull(rs!fantasia),"",rs!fantasia) isso deve resolver aplique a todas as Rst que tem valor nulo.
|
|
|
Treze
|
SÃO VICENTE SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 07/08/2008 18:06 hs
ou MSFlexGrid.TextMatrix(I, 0) = rs!Status & "" MSFlexGrid.TextMatrix(I, 1) = rs!seqpessoa & "" MSFlexGrid.TextMatrix(I, 2) = rs!nomerazao & "" MSFlexGrid.TextMatrix(I, 3) = rs!fantasia & "" MSFlexGrid.TextMatrix(I, 4) = rs!cidade & "" MSFlexGrid.TextMatrix(I, 5) = rs!uf & ""
|
|
|
Tenci
|
GUARUJÁ SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2008 09:02 hs
VALEU PELA DICA CAROS AMIGOS VBWEBERIROS, COMO SEMPRE AJUNDANDO.
CORDIALMENTE.
VALTENCI.
|
|
|
LCRamos
|
GOIANIA GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/08/2008 13:50 hs
Tente isto dá certo. I = 1 Do While Not rs.EOF MSFlexGrid.TextMatrix(I, 0) = "" & rs!Status MSFlexGrid.TextMatrix(I, 1) = "" & rs!seqpessoa MSFlexGrid.TextMatrix(I, 2) = "" & rs!nomerazao MSFlexGrid.TextMatrix(I, 3) = "" & rs!fantasia MSFlexGrid.TextMatrix(I, 4) = "" & rs!cidade ' MSFlexGrid.TextMatrix(I, 5) = "" & rs!uf I = I + 1 rs.MoveNext Loop ColorirGrid End Sub vlu//
|
|
|