程序代码：

create cursor b1 (m1 c(3),m2 c(3))
insert into b1 values ('132','123')
insert into b1 values ('301','013')
insert into b1 values ('132','123')
insert into b1 values ('211','112')
insert into b1 values ('121','112')
insert into b1 values ('200','002')

[此贴子已经被作者于2021-8-4 16:49编辑过]

程序代码：

create cursor b1 (m1 c(3),m2 c(3) ,m3 c(3))
insert into b1 values ('132','123','')
insert into b1 values ('301','013','')
insert into b1 values ('132','123','')
insert into b1 values ('211','112','')
insert into b1 values ('121','112','')
insert into b1 values ('200','002','')

UPDATE b1 SET b1.m2 = func_px(b1.m1) 
UPDATE b1 SET b1.m3 = func_px(b1.m1,.t.)   && 倒序排列

FUNCTION func_px(str1  as String ,SortDesc as Boolean)
* 参数1,欲排序的字符串,参数2,输出倒序还是正常顺序? 默认正常排序.
    IF USED('_px') THEN 
        USE IN _px
    ENDIF 
    CREATE CURSOR _px (s1 C(1))
    LOCAL ii as Integer ,str2 as String
    str2=""
    FOR ii = 1 TO LEN(str1) 
        INSERT INTO _px VALUES (SUBSTR(str1,ii,1))
    ENDFOR 
    IF SortDesc
        SELECT s1 FROM _px INTO CURSOR _px2 ORDER BY s1 DESC 
    ELSE 
        SELECT s1 FROM _px INTO CURSOR _px2 ORDER BY s1    
    ENDIF 
    
    USE IN _px
    SELECT _px2
    GO TOP 
    SCAN 
        str2 = str2 + _px2.s1 
    ENDSCAN 
    USE IN _px2
    RETURN str2 
ENDFUNC 

[此贴子已经被作者于2021-8-4 17:26编辑过]

[此贴子已经被作者于2021-8-4 18:16编辑过]

程序代码：

create cursor b1 (m1 c(3))
insert into b1 values ('132')
insert into b1 values ('301')
insert into b1 values ('211')
insert into b1 values ('200')
SELECT m1,fun(m1) m2 FROM b1

FUNCTION fun(m)
    ALINES(arr,TRANSFORM(m,"@R #,#,#"), ",")
    ASORT(arr)
    RETURN arr[1]+arr[2]+arr[3]
ENDFUNC

[此贴子已经被作者于2021-8-4 18:35编辑过]

程序代码：

create cursor b1 (m1 c(3), m2 c(3))
insert into b1 values ('132', '')
insert into b1 values ('301', '')
insert into b1 values ('211', '')
insert into b1 values ('200', '')
SCAN
    ALINES(arr,TRANSFORM(m1,"@R 9,9,9"), ",")
    ASORT(arr)
    REPLACE m2 WITH arr[1]+arr[2]+arr[3]
ENDSCAN
BROWSE