indexing in loops 1

[sdpsc]

I want the below code to loop through each field and index in (thus showing the unique count for each field). But it just counts 1 unique for each field (which is not accurate). How can I do this? Is there a completely different way? Thanks.


numFields=aFields(aColumns)
set safety off
set stat on

For i=1 To numFields
index on Upper(aColumns(i,1)) to temp uniq
? Upper(aColumns(i,1))
? 'Unique records:'
count
? ''
set index to
Next

 

[Stella740pl]

Jim,

I ran your example in VFP6,
got "2 records indexed" as a message, and 3 as a result of ?_TALLY.

When UNIQUE is removed from INDEX, got both 3: "3 records indexed" as a message, and 3 as a result of
?_TALLY.

 

[jimstarr]

Stella, when I try VFP7 I get the same results as you. VFP5 is different! -Jim

 

[Stella740pl]

Olaf,

Great analysis. Star for you.

 

[DSummZZZ]

Olaf,

You're right. I got switched them when I posted the code.


-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm