>> >>Select zero >>pnRec=0 >>pcname=zero.fname >>set order to fName >>Scan while not eof() && to make sure we're using our order (it's not really necessary) >> IF pcname=zero.fname >> pnRec=m.pnrec+1 >> Else >> pnRec=1 > pcName = zero.fName >> Endif >> Replace IDfield with pnRec >>Endscan >>>>