也来一段
clear
s1=15.60
s2=2.50
s3=6.60
s4=2.51
s5=13.55
s6=0.21
s7=8.11
s8=0
s9=0
s10=0
s11=5.09
CREATE CURSOR tm (fn n(6,2))
INSERT INTO tm VALUES (s1)
INSERT INTO tm VALUES (s2)
INSERT INTO tm VALUES (s3)
INSERT INTO tm VALUES (s4)
INSERT INTO tm VALUES (s5)
INSERT INTO tm VALUES (s6)
INSERT INTO tm VALUES (s7)
INSERT INTO tm VALUES (s8)
INSERT INTO tm VALUES (s9)
INSERT INTO tm VALUES (s10)
INSERT INTO tm VALUES (s11)
INDEX on fn TAG fn
ss=''
SCAN
ss=ss+'s'+ALLTRIM(STR(RECNO()))+','
ENDSCAN
?LEFT(ss,LEN(ss)-1)