theTable = av.GetActiveDoc
theVTab = theTable.GetVTab
numrecs = theVTab.GetNumRecords
' theVTab.SetEditable(true)
fieldList = theVTab.GetFields.Clone
shpFld = theVTab.FindField("Shape")
fieldList.RemoveObj(shpFld)
uniqFld = MsgBox.ChoiceAsString(fieldList,"Perform uniqueness check on which field?",
            "Choose field")
av.ShowMsg("Making list of field entries")
av.ShowStopButton
uniqList = List.Make
for each rec in theVTab
  uniqList.Add(theVTab.ReturnValue(uniqFld,rec))
  av.SetStatus(100*(rec+1)/numrecs) 
end
av.ClearMsg
uniqList.RemoveDuplicates
if (uniqList.Count = numrecs) then
  MsgBox.Info("Each entry is unique","")
else
  MsgBox.Warning("There are " + numrecs.AsString + " rows in the table, but only " + uniqList.Count.AsString + " unique entries.","")
end