FIELD help

[starskyuk]

Hi

I am trying to merge a database of single field records to create record of 30 fields. i.e. records 1,2,3...30 to become one record containig the data from those records ie rec1 = field1..field30, rec 2 field31..field60 etc
I have tried using the FIELD() command to increment the field number when relacing data.

Any ideas? Please use Leymans terms as i am new !
Many Thanks

 

[EzLogic]

Try this:
For x = 1 to 30
y = ltrim(str(x))
xRec1 = Field&y +" "&& assuming the name of the field
is field1, field2, field3 etc..
next x

Select YourSecondTable
Append blank && add new record
replace YourFieldName with xRec1

and so on... Please let me know if this helped you

Tekno
Wireless Toyz
Ypsilanti, Michigan

 

[EzLogic]

or if the name of the field is not field1,2,3,etc..

Local x,cFieldName,cFieldValue
for x = 1 to 30
cFieldName = field(x) && get field Name
cFieldValue = cFieldValue + &cFieldName && get the data
next x

now cFieldValue will contain the values of the first 30 fields!!! Please let me know if this helped you

Tekno
Wireless Toyz
Ypsilanti, Michigan

 

[EzLogic]

Oppps for the 1st post

xRec1 = xRec1 + Field&y + ' '

otherwise, xRec1 will not be adding all the field values!! Please let me know if this helped you

Tekno
Wireless Toyz
Ypsilanti, Michigan

 

[tesar]

As Teknos solution connect 30 records to one fields one record,
if you want to one records 30 fields,
try
sele single
scan
sele thirty
appe blank
sele single
for ii = 1 to 30
fp = ltrim(str(ii,0))
sele thirty
repl field&fp with single.field
sele single
skip
if eof()
exit
endif
endfor
endscan
*(not tested)