>Hi,
>
>I meet a weird problem in my code. When I'm executing this loop I get a "data type mismatch" error message on the line "SELECT curProspect". The error occurs only at the first pass and if I click on "Ignore" button then the loop goes through normaly. If I "suspend" the code then select manually the cursor and resume everything works fine.
>
>Is somebody has a solution or a clue to help?
>
>Thanks,
>
>Normand
>
>
>SELECT rv
>SET ORDER TO noclient
>SELECT curProspect
>SET ORDER TO 0
>GO TOP
>
>DO WHILE !EOF()
> cTel = telres
> LOCAL nContrat
> nContrat = nocontrat
> SELECT rv
> SEEK cTel
> DO WHILE rv.nocontrat # nContrat AND !rv.print
> SKIP
> ENDDO
> IF rv.nocontrat = nContrat
> REPLACE rv.print WITH .t.
> ENDIF
> SELECT curProspect
> SKIP
>ENDDO
Replacing DO WHILE with SCAN you will make your code better, and the line will disappear. Could you try it?
Edward Pikman
Independent Consultant