if ascan(laDBFInfo,'primekey',1,lnFieldNumber,1,1) = 0 llFoundErrors = .t. gcmessage = gcmessage + 'Required column PRIMEKEY is missing.<br>' else lnOccurs = 0 for i=1 to lnFieldNumber if ascan(laDBFInfo,'primekey',i,lnfieldnumber,1,7) <> 0 lnOccurs = lnOccurs + 1 endif endfor if lnOccurs > 1 llFoundErrors = .t. gcmessage = gcmessage + 'Duplicate column PRIMEKEY found.<br>' endif