>801--------801 >803--------802 >807--------803 >809--------804 > >902--------901 >905--------902 >906--------903 >908--------904 >>
SELECT MyTable SET ORDER TO OrderByFirstField GO TOP lcFirstLeft = LEFT(Field1,1) lcNextReplace = 0 SCAN IF NOT LEFT(Field1,1) == m.lcFirstLeft lcFirstLeft = LEFT(Field1,1) lcNextReplace = 0 ENDIF m.lcNextReplace = m.lcNextReplace + 1 REPLACE Field2 WITH INT(VAL(lcFirstLeft+PADL(m.lcNextReplace,2,[0]))) ENDSCAN