以下是引用sdta在2021-2-16 12:07:40的发言：









create cursor b1 (jnh N(2),m1 n(3),m2 n(3),m3 n(3),m4 n(3),nmin n(3))
insert into b1 values (1,60,0,58,89,58)
insert into b1 values (2,0,0,58,89,58)
insert into b1 values (3,65,70,0,89,65)
insert into b1 values (4,60,0,0,89,60)
blank field nmin all
scan
    scatter fields m1, m2, m3, m4 to la
    asort(la)
    for lnj = 1 to alen(la, 1)
        if la[lnj] != 0
            replace nmin with la[lnj]
            exit
        endif
    endfor
endscan
browse