VFP 愛用者社區

TSAISUN · 註冊時間: 2006-02-12 文章: 12 第 1 樓

各位大哥大姐好:
我有一個蠻大的記錄，當在網域執行SELECT * FROM CUST WHERE CUST_NM='陳' INTO CURSOR TMP時，有時需3至4分鐘，請問在此時間，如何套用PROGRESS BAR 才不會讓USER誤認當機

謝謝

a123eric · 註冊時間: 2003-10-20 文章: 64 第 2 樓

在網域環境中…少用 select
換個方式用 seek scan while 速度會快很多

violetlkk · 發表於: 星期二九月 26, 2006 12:34 pm 文章主題:

方法1:
thisform.oleProgressbar.Maxvalue = reccount() && or whatever you want

select *, updatevalue() from table;
where condition;
into cursor tmp

with thisform.oleProgressBar
.value = .Maxvalue
endwith

function updatevalue
with thisform.oleProgressBar
.value = _tally
if .value >=.Maxvalue
.Maxvalue = .value*2
endif
endwith

====================================
方法2:
DEFINE WINDOW Dummy from 0,0 to 1,1
set talk window dummy
set talk on
sele * from table
release windows dummy
set talk

*方法1 自己做progress bar
*方法2 vfp 自已的