* 假设“表”已经按“姓名”排序 SELECT 表 m姓名 = "" m代码 = 0 SCAN IF 表.姓名 == m姓名 m代码 = m代码 + 1 ELSE m姓名 = 表.姓名 m代码 = 1 ENDIF REPLACE 表.代码 WITH PADL(m代码, 2, "0") ENDSCAN