FoxPro/Visual FoxPro - Actualizar Tablas en VFP

   
Vista:

Actualizar Tablas en VFP

Publicado por askeycorp (1 intervención) el 04/12/2013 04:03:08
Hola expertos, Soy nuevo en VFP, a partir de una tabla debo extraer registros para actualizar una segunda tabla, este es mi código y no actualiza, mucho agradeceré vuestro apoyo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio

Actualizar Tablas en VFP

Publicado por Mauricio (1368 intervenciones) el 04/12/2013 14:10:21
Select db_1
Scan
....cNumonly=" "
....cTest=db_1.columna2
....For ncnt=32 to 82
........cCharacter=substr(cTest, nCnt, 1)
........If !Isdigit(cCharacter) OR cCharacter !='-'
............cNumonly=cNumonly+cCharacter
........Endif
.....Endfor
.....Select db_2
.....If !eof()
.........Replace db_2.campo with cNumonly
.....Endif
Endscan
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Actualizar Tablas en VFP

Publicado por Juan Carlos (179 intervenciones) el 04/12/2013 16:06:15
A primera vista me parece que te falto despues de replace esta instrucion la actualiza la tabla

1
2
3
4
5
If !eof()
           Replace db_2.campo with cNumonly
          =TABLEUPDATE()
           this.refresh  /*Esta linea siquieres la pones no es necesaria */
Endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar