行(列)记录的最大值

作者在 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 
 
数据表问题 | 阅读 13742 次
文章评论,共0条
游客请输入验证码
浏览405502次