Article ID: 194780
Article Last Modified on 7/1/2004
***** Begin code sample *****
IF "5.00"$VERSION()
dbfpath = HOME()+"samples\data\"
ELSE
dbfpath = HOME(2)+"data\"
ENDIF
CLEAR
PUBLIC acountry(1),i
mcountry=" "
SELECT DISTINCT(country) ;
FROM dbfpath+"customer" ;
WHERE !EMPTY(country) ;
ORDER BY country ;
INTO ARRAY acountry
SELECT company,contact,city,country ;
FROM customer ;
WHERE UPPER(country)=mcountry ;
INTO CURSOR QUERY
BROWSE NOWAIT
WAIT WINDOW "Hit a key to see next country..." TIME .5
FOR i= 2 TO ALEN(acountry)
mcountry=UPPER(acountry(i))
BROWSE NOWAIT
WAIT WINDOW "Hit a key to see next country..." TIME .5
ENDFOR
RELEASE WINDOW QUERY
***** End code sample *****
Keywords: kbhowto kbcode KB194780