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
共11个变量，按变量值要从小到大排列，但要得到是变量ss：
ss="s8,s9,s10,s6,s2,s4,s11,s3,s7,s5,s1"
这11个变量只是举例，实际应用中会变化，需要通用并且快捷方法，谢谢

弄个通用子程序, 利用 数组和asor(数组)函数, 约14句代码, 即可满足你的要求~

也可以用冒泡算法, 代码要长些~

版主，有源码吗？急.............

也可以搞一个两个字段的表，一个字段为变量名，另一字段为变更值，SORT一下，然后
GOTOP
SS=ALLTRIM(变量名字段)-','
SKIP
SCAN FOR ! EOF()
  SS=SS-','-ALLTRIM(变量名字段)
ENDSCAN
?? SS

也来一段
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)

后面画这个“—”什么意思啊

要知道什么意思，请您在命令窗口试试以下命令(逐条输入运行）,看看结果：
cLSTRA='AAA  '＆＆（注意，这里有若干个空格）
cLSTRB='BBB'
?cLSTRA+cLSTRB
？cLSTRA-cLSTRB

谢谢楼上

经测试需要稍微改动一下

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),mc c(3))
INSERT INTO tm VALUES (s1,[s1])
INSERT INTO tm VALUES (s2,[s2])
INSERT INTO tm VALUES (s3,[s3])
INSERT INTO tm VALUES (s4,[s4])
INSERT INTO tm VALUES (s5,[s5])
INSERT INTO tm VALUES (s6,[s6])
INSERT INTO tm VALUES (s7,[s7])
INSERT INTO tm VALUES (s8,[s8])
INSERT INTO tm VALUES (s9,[s9])
INSERT INTO tm VALUES (s10,[s10])
INSERT INTO tm VALUES (s11,[s11])
*啸凡方式1
INDEX ON fn TAG fn
GO TOP
SS=ALLTRIM(mc)&&&将初始值赋为第一个将后面的连接号部分去掉
SKIP
FOR i=2 TO RECCOUNT()
     SS=SS-','-ALLTRIM(mc) 
    SKIP
ENDFOR
? SS 
*啸凡方式2
GO TOP
ss=""
SCAN
    SS=SS-ALLTRIM(mc) -','&&&用了alltrim函数去除了尾部空格+，-就无所谓了，否则会有不同
    *SS=SS-mc -',' &&这样和上面结果相同
    *SS=SS+mc+',' &&这样尾部会有空格
ENDSCAN
?LEFT(ss,LEN(ss)-1) &&直接显示后面会多一个逗号，故需要用left函数截取一下

[此贴子已经被作者于2025-2-11 09:52编辑过]

留个脚印学习了，巧妙利用记录号，牛！思路很重要