表 ：  flag      total    a1    a2    a3    a4    a5    a6    a7    a8  
    11011101       388    61    51    20    63    58    75    0     80   
    11110011       355    45    60    75    80    25    10    65    30

取 a1 到 a8最大六个值， 将flag相应标志置为1，其他两位置为0，将total置为最大六个值得总和

好像比较麻烦，笨办法
先把横变成如下竖表，然后再处理
字段名 值  记录号  标志
a1    61     1
a2    51     1
a3    20     1
....
a1    45     2
a2    60     2
...
a8    30     2

按记录号和值进行索引，（3到8）倍数的记录标志设为1，其余为0
select sum(值) group by 记录号,标志
再转回横表

楼主能说明一下为什么要这样做的理由吗。

sele 表
FOR i=1 TO RECCOUNT()
IF RECNO()=i
REPLACE total WITH a1+a2+a3+a4+a5+a6+a7+a8 all
ENDIF
ENDFOR
其它不会弄啦

我做个找最小值的

n1=0&&最小值
zdbl=''&&字段变量

scan for not eof
    n1=a1
    for i=1 to 8
        zdbl='a'+allt(str(i))
        if &zdbl<n1
            n1=&zdbl
        endi
    endf   
ends

[ 本帖最后由 sxy166 于 2012-5-30 17:37 编辑 ]

这个数据处理法则有没有漏洞呢？比如1楼数据第一条，0可以被排除，但如果出现两个20，或者有三个0，你打算怎么办？当然，你应该有某种假设条件，但最好把各种情况的处理办法都说清楚，不然做出来的代码，也仅仅是代码而已。

GO top
DO while !EOF()
    n_zf="MAX(a1,a2,a3,a4,a5,a6,a7,a8)"
    js=0
    n_flag="00000000"
    FOR i=1 to 6
        max_field=&n_zf
        FOR j=1 to 8
            n_field="a"-TRANSFORM(j)
            IF &n_field=max_field
                js=js+&n_field
                n_zf=STRTRAN(n_zf,n_field,"")
                n_zf=STRTRAN(n_zf,"(,","(")
                n_zf=STRTRAN(n_zf,",)",")")            
                n_zf=STRTRAN(n_zf,",,",",")            
                n_flag=STUFF(n_flag,j,1,"1")
                EXIT
            ENDIF
        NEXT
    NEXT
    REPLACE total with js,flag with n_flag
    skip
ENDDO
BROWSE


[ 本帖最后由 qjbzjp 于 2012-5-30 20:21 编辑 ]

CREATE CURSOR TABNAME1 (FALG C(8),TOTAL N(4),值 N(2),标志 C(1),最大值 N(4))
CREATE CURSOR TABNAME (FALG C(8),TOTAL N(4),A1 N(2),A2 N(2),A3 N(2),A4 N(2),A5 N(2),A6 N(2),A7 N(2),A8 N(2))
INSERT INTO TABNAME VALUES ("11011101",388,61,51,20,64,58,75,0,80)
INSERT INTO TABNAME VALUES ("11110011",355,45,60,75,80,25,10,65,30)

GO TOP
SCAN
   SCATTER FIELDS LIKE A* TO TABARRAY
   ASORT(TABARRAY)
   N_SUM=0
   FOR I=1 TO FCOUNT("TABNAME")-2
       IF I>2
          N_SUM=N_SUM+TABARRAY(I)
       ENDIF
       INSERT INTO TABNAME1 VALUES (TABNAME.FALG,TABNAME.TOTAL,TABARRAY(I),IIF(I<=2,"0","1"),0)
   ENDFOR
   REPLACE 最大值 WITH N_SUM IN TABNAME1
ENDSCAN
SELECT TABNAME1
BROWSE

实际工作中的需求 ，数据处理要求这样

先不考虑特殊情况 ， 只是想通过普通数据来找个解决思路  ， 你说的特殊情况也确实存在