Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Append headers
Message
From
02/09/2008 05:24:24
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Append headers
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows XP
Network:
Windows 2008 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01344032
Message ID:
01344032
Views:
55
hi all,

if the field found at my table
i want replace field data with another field
if field is = space(17)
append blank
replace mytable title fields to new records

something like below
use qcombined1 excl
ALTER table qcombined1 ADD COLUMN mnt c(17)

&&if qcombined1.f1 found()&& f1 isfield name 
scan
replace mnt WITH f1


IF f1=SPACE(17)
APPEND fields name as(no,name,f1,f2........at new record

if field.f2 found()

replace mnt WITH f2

IF f2=SPACE(17)
APPEND fields name as(no,name,f1,f2........at new record

if field.f3 found()
replace mnt with f3
.
.
.
.
.
if field.f56 found()
replace mnt with f56

endif
endif
endif
ENDSCAN
thanks
Next
Reply
Map
View

Click here to load this message in the networking platform