程序代码：

sort to 新表 on 排序字段
use 新表
xx=排序字段
skip 1
scan rest
    if xx#排序字段
        xx=排序字段
    else
        delete
    endif
endscan
pack
brow