countAttachedPolygons.qry

# computed numeric field
# counts the number of polygons attached to a record
# CLASS table has some records attached to more than one polygon
# assumes every value in CLASS.Class field is unique;
# Cindy Robbins 21 Oct 2014
numeric elemNum2, count, numP, totalP, i;
string uniqueClass$, thisClass$;
count = 0;
numP = 0;
totalP = NumVectorPolys(Vect);  # number of polygons in the vector
uniqueClass$ = CLASS.Class;  # get value for the current record, must be unique
# go through every polygon and if it has the same CLASS.Class value add it to the count
for i = 1 to totalP {  
	elemNum2 = Vect.poly.Internal[i].ElemNum;
	thisClass$ = Vect.poly[elemNum2].CLASS.Class$;  #  '$' must be added  to end of Class field to indicate it holds a string
	if (thisClass$ == uniqueClass$) {
	 	count = count + 1;
	}
}
return  count;