表名    |N01  | N02  |N03  | N04 |…...至N70   | 目的：计算每行最大值
---------------------------------------------------------
A00001  |  10 |  12  |   6 |  65 |   70        |？
A00002  |  2  |  32  |   4 |  95 |   10        |？
A00003  |  8  |  26  |  13 |  85 |   29        |？
A00004  |  50 |   1  |  18 |   2 |   95        |？
A00005  |  45 |  11  |   7 |   8 |   19        |？
…….   | ……|  ……|…… |…… | ……        |?
A10000  |  90 |   2  |  29 |  39 |   45        |？
---------------------------------------------------------

请教： 如何求出每一行的最大值？
------------以下是我用的“笨”办法，由于记录非常多达到 1万条*70，仅转换的速度就非常慢----------

Create Table tmp\B1 (表名 c(10),序列 c(3), 数值 N(6) )
Select A1
    Scan
       c1=Alltrim(A1.表名)
       For F=2 To 70
           cFld=Field(F)
           Insert Into tmp\b1 Values (c1, Padl(F-1,2,"0"),A1.&cFld)
       Endfor
    Endscan
然后再通过求出每个表名的最大值。

请教各位大侠有何巧办法，可提高速度！

将NO1---NO70 赋给一个数组，然后用数组排序。

谢谢

repl Nmax with max(N01,N02,N03,N04,.....,N70) all