程序代码：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)
2021-02-15 19:11
程序代码：
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
2021-02-15 19:33
2021-02-16 07:56
程序代码：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
2021-02-16 12:07
2021-02-16 14:38
2021-02-17 07:10