程序代码：

create cursor b1 (jnh N(2),m1 n(3),m2 n(3),m3 n(3),min 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)

程序代码：

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
    lcstr = ""
    for lnj = 2 to fcount() - 1
        lcstr = lcstr + iif(empty(evaluate(field(lnj))), "", "," + transform(evaluate(field(lnj))))
    endfor
    lcstr = substr(lcStr, 2)
    replace nmin with min(&lcstr)
endscan
browse

程序代码：

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