VFP 愛用者社區

[john]

這個指令大家很清楚 但是總讓我覺得不穩 時常算不出應有的答案
一張傳票也不過只有幾個 record..卻偶爾也會失靈

該如何呢 土法煉鋼
用for ...next ....
do while ..enddo....

結果也是如此 時常算錯 真不知如何是好阿

[Ruey]

1.範例如下:
close databases
open database (home(2) + 'data\testdata')
use orders && open orders table
set talk on
clear
calculate avg(order_amt), min(order_amt), max(order_amt)
calculate std(order_amt), var(order_amt) to gnstd, gnvar

2.有可能是set SET DELETED ON | OFF
可能計算時,未按照順序加總.
最好把片段程式放上來!


3.可以使用scan
i=0
select test
scan
i=test.qty+1
endscan

[john]

這是我目前用的方式:

nmtemp = 0

select db001

go top

do while .t.
nmtemp = nmtemp + db001.nfAmt
skip
if eof()
exit
endif
enddo

似乎暫時可用

之前 用sum() 用了一年多 偶爾會出現問題 改成 for...next 還是有問題 在改成 do...enddo....哈哈哈 不知可以用多久

[syntech]

用 select -sql 如何?
我們老闆也是老clipper人,
自從學會了sql command之後,傳統取值方式就懶得用了

SELECT SUM( xxfield) AS nmtemp FROM xxALIAS WHERE some condition