Execution by going field to field 1

[buddyrich2]

I know how to go down a table and execute a command for each record. My question is, that if I have only one record but many fields, is there anyway I can automatically go field to field until the end and execute a command on each (memo) field?

Thanks.

 

[alvechurchdata]

The FCOUNT() function will tell you how many fields you've got, FIELD() will return you the name of a field, and TYPE() will tell you the data type. So you can find memo fields by looking for TYPE(FIELD)="M"

Geoff Franklin

http://www.alvechurchdata.co.uk

 

[TamarGranor]

You can probably do it a little faster by using AFIELDS() to populate an array with the table's structure and then go through that to identify the fields you need.

Tamar

 

[Imaginecorp]

I dont think there is a performance improvement with AFIELDS() as you are still checking the #2 element of the array for a "M". (memo) also to much bagage, 1 element as opposed to 18.

Geoff's method is less complicated. (IMO)

Buddyrich:

(Geoff's method)
select <<table>>
for x = 1 to fcount()
 if vartype(field(x)) = "M"
   *** can use Type() instead of Vartype() 
   *do something
 endif
endfor

 

[baltman]

The benefit to afields() is that data type, width and decimals are included in the array and are easily available in the 'do something' part if you need them.

 

[buddyrich2]

Works like a champ! Thanks guys!

 

[baltman]

Here's an example of how knowing more about the structure might be helpful.

CLEAR 

CREATE TABLE test (c1 c(1), n1 n(1,0), m1 m, c2 c(2), m2 m, n2 n(3,1))

FOR i = 1 TO AFIELDS(aa)
  DO CASE 
    CASE aa[i,2]="M"
    ?"Memo field: " + aa[i,1]
    
    CASE aa[i,2]="N" and aa[i,4]=1
      ?"Only one decimal for: " + aa[i,1] + ". Increasing width and decimal by 1"
      ALTER TABLE DBF() ALTER COLUMN (aa[i,1]) n(1+aa[i,3],1+aa[i,4])
    
    OTHERWISE 
      *nothing
  ENDCASE 
ENDFOR

 

[Imaginecorp]

Baltman: You are right and Afields() is great when you do not know the structure of the table. BuddyRich2 does, only memos

BuddyRich2: Glad I could help.