作者在 2016-05-16 21:13:43 发布以下内容
create cursor tt (a1 i,a2 i,a3 i,a4 i,a5 i,a6 i,a7 i,a8 i,a9 i,a10 i,a11 i)
rand(-1)
for lnI=1 to 11
append blank
nzds=0
for lnJ=(lnI-1)*11+1 to lnI*11
nzds=nzds+1
replace (field(nzds)) with lnJ*rand()
endfor
endfor
lcStru=""
for lnI=1 to fcount()
lcStru=lcStru+iif(empty(lcStru),"",",")+field(lnI)
endfor
*messagebox("Max("+lcStru+")")
clear
scan
?"第 "+transform(recno())+" 行最大值:",evaluate("Max("+lcStru+")")
endscan
* 所有数据的最大值
select max(evaluate("Max("+lcStru+")")) 最大值 from tt
* 每行记录的最大值
SYS(3099,70) &&VFP9代码
SELECT *,evaluate("MAX("+lcStru+")") 最大值 FROM tt