FoxPro/Visual FoxPro - Actualizar Tablas en VFP

Select db_1

Scan

cNumonly=" "

cTest=db_1.columna2

For ncnt=32 to 82

cCharacter=substr(cTest, nCnt, 1)

If !Isdigit(cCharacter) .and. cCharacter!='-'

cNumonly=cNumonly+cCharacter

Endif

Endfor

Select db_2

If !eof()

Replace db_2.campo with cNumonly

Endif

Endscan

If !eof()

           Replace db_2.campo with cNumonly

          =TABLEUPDATE()

           this.refresh  /*Esta linea siquieres la pones no es necesaria */

Endif