FoxPro/Visual FoxPro - AGREGAR DATOS A UN SOLO CAMPO

 
Vista:

AGREGAR DATOS A UN SOLO CAMPO

Publicado por ebner (23 intervenciones) el 09/06/2007 19:55:19
Hola ..necesito colaboración u orientación .

necesito agregar los registros de una tabla x a una tabla auxiliar
los registros de 3 campos en un solo campo .

me explico asi
Tabla x tiene Campo1,Campo2,Campo3 etc .

la Tabla auxiliar tiene solo el campo Descripcio

los datos de los 3 campos de la tabla x tienen que pasar
a descripcio .
Supongamos que Campo 1 tiene estos registros
aa
bb
cc
dd
Campo 2
123
12345
aa
Etc

campo Descripcio de la tabla Auxiliar
debe almacenar asi :
Descripcio
aa
bb
cc
dd
123
12345
aa
Etc

prove con la siguiente rutina sin resultado óptimo ,osea siempre copia completo
lo datos del campo1 y sin almacenar los registros del campo2 y asi para poder
agregar a descripcio más campos .
Publi od
If ! Eof()
Append blank
Repl copia.descripcio With tabla1.campo1 For Mitabla.Orden=od
Repl copia.descripcio With tabla1.campo2
Endif
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

RE:AGREGAR DATOS A UN SOLO CAMPO

Publicado por adrian (228 intervenciones) el 10/06/2007 00:37:24
Solo tienes que hacer
Tabla x tiene Campo1,Campo2,Campo3 etc .

la Tabla auxiliar tiene solo el campo Descripcio

Solo debes hacer lo siguiente:
**********************
USE TablaX
DO WHILE.NOT.EOF()
STORE recno() TO rec
SCATTER MEMVAR
STORE alltrim(m.campo1)+' '+alltrim(m.campo2)+' '+;
alltrim(m.campo3)+' '+alltrim(m.campo4) to m.Descripcio
USE TablaAuxiliar
APPE BLAN
GATHER MEMVAR
USE TablaX
GOTO REC
SKIP
ENDDO
****************
puedes PONER ALLTRIM(str(xcampo, 8,2)) si el campo es numerico
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

RE:AGREGAR DATOS A UN SOLO CAMPO

Publicado por pancho lopez (1 intervención) el 13/06/2007 00:27:55
select Tabla1
go top
Do Whle ! Eof()
select Auxiliar
Append blank
Repl descripcio With tabla1.campo1
appen blank
Repl descripcio With tabla1.campo2
Select Tabla1
Skip
Enddo
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