请教:求出dbf每一行的最大值?
表名 |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
然后再通过求出每个表名的最大值。
请教各位大侠有何巧办法,可提高速度!