CREATE CURSOR A1 (序号 C(3),种类 C(10),上海 N(3),北京 N(3),天津 N(3))
NZDS=AFIELDS(AZDM,[A1])
LOCAL AC(NZDS)
AC[1]=[1]
AC[2]=[已排名]
FOR I=3 TO NZDS
    AC[I]=AZDM(I,1)
ENDFOR

CREATE CURSOR A2 (序号 C(3),种类 C(10),第1名 C(10),第2名 C(10),第3名 C(10))
* 1.如果A2表中没有记录，用下面代码
INSERT INTO A2 FROM ARRAY AC
效果图：

* 2.如果A2表中有记录，用下面代码
INSERT INTO A2 VALUES ([2],[],[],[],[])
INSERT BEFORE BLANK
GATHER FROM AC
BROWSE

楼主这么快就结贴了，问题是如何解决的。