VFP 愛用者社區

[aforangel]

student.dbf 裡面有18000個紀錄, 我用單機程式執行以下程序...花時差不多2分鐘, 如果放在SERVER上還要更長時間, 有什麼方法..可以另temp.dbf新增更快, 這速度用家實在接受不到, 謝謝各位大大....小弟初學寫PROGRAM, 技術有限

? time()
select student
go top
do while !eof()
if age > 12
scatter memvar memo
select temp
append blank
if rlock()
gather memvar memo
unlock
endif
endif
select student
skip
enddo
? time()

[ckp6250]

select * from student where age > 12 into table temp.dbf

[aforangel]

感謝CKP兄, 不過又有另一個問題

public temp_Dbf, tempSel1, temp_Ntx

select student
temp_Dbf = Sys(2015)
temp_Ntx = temp_Dbf
copy stru to &temp_Dbf
select 0
use &temp_Dbf excl alias t_case
index on studentcode tag &temp_Ntx

select t_case
select * from student where age > 12 into table t_case
go top
with thisform.grid2
.recordsource = temp_Dbf
.column1.controlsource = temp_Dbf+".studentcode" <--- 程式執行到這行就說找不到別名, 請問錯了什麼?
.column2.controlsource = temp_Dbf+".sex"
.column3.controlsource = temp_Dbf+".age"
endwith

[LiuRambo]

select t_case
select * from student where age > 12 into table t_case
go top
with thisform.grid2
.recordsource = temp_Dbf
.column1.controlsource = temp_Dbf+".studentcode" <--- 程式執行到這行就說找不到別名, 請問錯了什麼?

既然都已經新增一個T_CASE了
怎麼還是用TEMP_DBF

[aforangel]

LiuRambo兄

意思是將所有temp_Dbf 都轉做t_case嗎?
.recordsource = t_case
.column1.controlsource = t_case+".studentcode"

[LiuRambo]

recordsource = "t_case"
.column1.controlsource = "t_case.studentcode"
.column2.controlsource = "t_case.sex"
.column3.controlsource = "t_case.age"

[aforangel]

現在, 為什麼我之前已設好索引檔, 但我在後面用SEEK會說我沒設好

public temp_Dbf, tempSel1, temp_Ntx

select student
temp_Dbf = Sys(2015)
temp_Ntx = temp_Dbf
copy stru to &temp_Dbf
select 0
use &temp_Dbf excl alias t_case
index on studentcode tag &temp_Ntx <---設定索引

select t_case
select * from student where age > 12 into table t_case
go top
with thisform.grid2
recordsource = "t_case"
.column1.controlsource = "t_case.studentcode"
.column2.controlsource = "t_case.sex"
.column3.controlsource = "t_case.age"
endwith

select t_case
seek "12345" <--- 資料表格沒有設定索引次序

[aforangel]

找到了, 原來用SELECT * 設定索引檔是用在中間加插order by...

select * from student order by studentcode into table &dbfD1 <--- 這是成功的

但是, 如果我的索引是要studentcode + sex, 請問要怎打
select * from student order by studentcode+sex into table &dbfD1 <--- 這會顯示錯誤.....

[ckp6250]

select * from student order by studentcode,sex into table &dbfD1

建議aforangel兄把 select 指令用力啃30遍(300遍也可以,看您的時間)
將來對您很有幫助

select 如果用的好,常常100行指令只要用一行 select 就完成了

[pilipala]

[syntech]

這篇有蓋大樓的潛力.............

[aforangel]

謝謝各位.....學習中..

ckp6250, 請問, 那裡有關於SELECT 的文章可以參考....我也想努力努力

[aforangel]

用完select 之後...
select * from student order by studentcode,sex into table &dbfD1

最後我離開前想delete這個TEMP FILE..dbfD1
select dbfD1
use
Erase dbfD1+".dbf" <-- 錯誤"檔案被使用"...請問用完select後要先做什麼動作關閉select 嗎?.....希望這是最後一個暫時遇到關於select的問題吧....>_<
Erase dbfD1+".cdx"
Erase dbfD1+".fpt"

[richshih]

我看你是用 into table &dbfD1
要關閉須use in (dbfD1)

[ckp6250]