越发的感觉自己编程水平太低了，这个程序折腾了一个多小时....

DB1定义了两个数组，DF 0 ---50是数据来源   DTO 0---50是排序后的数据，都是整数型

TM TI TMP1是定义的整数型临时变量

//选出大于0的数字

#TM := 0;

FOR #TI := 0 TO 49 DO

    IF "DB1".DF[#TI]>0 THEN

        "DB1".DTO[#TM] := "DB1".DF[#TI];

        #TM := #TM + 1;

    END_IF;

END_FOR;

// 冒泡对选出来的数据排序,从大到小

FOR #TI := 0 TO 49 DO

    IF "DB1".DTO[#TI] > 0 THEN

        FOR #TM := #TI TO 49 DO

            IF "DB1".DTO[#TI] < "DB1".DTO[#TM] THEN

                #TMP1 := "DB1".DTO[#TI];

                "DB1".DTO[#TI] := "DB1".DTO[#TM];

                "DB1".DTO[#TM] := #TMP1;

            END_IF;

        END_FOR;

    ELSE

        EXIT;

    END_IF;

END_FOR;