13 Set 2018 10:56
while !chq->(eof())
if ascan(arr_reg,Cid->numreg) == 0 .OR. Cid->numreg == " "
chq->(dbskip())
loop
endif
chq->(dbskip())
end
while !oRSChq:eof()
if ascan(arr_reg,Cid->numreg) == 0 .OR. Cid->numreg == " "
oRsChq:movenext()
orsChq:loop()
endif
oRsChq:movenext()
end
13 Set 2018 12:13
while !oRSChq:eof()
if ascan(arr_reg, oRSChq:fields:"numreg") == 0 .OR. oRSChq:fields:"numreg" == " "
oRsChq:movenext()
LOOP
endif
oRsChq:movenext()
end
13 Set 2018 13:29
14 Set 2018 10:45
alxsts escreveu:O método "loop" não existe em ADO.
14 Set 2018 12:53
JoséQuintas escreveu:Tem a ver com DO WHILE/ENDDO e não banco de dados.
JoséQuintas escreveu:Estranhei o Fields, que eu saiba seria Fields( "codigo" ):Value
JoséQuintas escreveu:E nesta parte talvez melhor inverter:
21 Set 2018 15:37
21 Set 2018 15:42
ascan(arr_reg,Cid->numreg) == 0 .OR. Cid->numreg == " "