行(列)记录的最大值

数据表问题 | 2016-05-16 21:13:43 | 阅读 12593 次 | 评论(0)
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 
 
文章评论,共0条
游客请输入验证码
浏览232071次
最新评论
  • cstdio:ooooooo
  • sdta:从VFP入手也不错
  • yuanhouwen:尊敬的sdta大神:作为一个编程外行,看到你关于操控EXCEL的编程程序我觉得特别神奇,想向你...