CLOSE DATABASES
CREATE CURSOR tj (月份 c(6),票数 n(2))
SELECT * FROM 选票登记表 WHERE RECNO()=RECCOUNT() INTO ARRAY aa
=AFIELDS(azdm,"选票登记表")
FOR i=1 TO ALEN(aa,2)
INSERT INTO tj VALUES (azdm[i,1],aa[i])
ENDFOR
SELECT * FROM tj ORDER BY 2 DESC INTO TABLE tjb
SELECT tjb
BROWSE