VFP 愛用者社區

[Terry1211]

請教大家
我要跨年查詢歷史資料庫，語法如下

delta = Year(Thisform.txtenddate.Value)-Year(Thisform.txtbgndate.Value)
For i=0 To delta
nowyear= (Year(Thisform.txtbgndate.Value)+i)-1911
dbfl="E:\temp\n"+Padl(Allt(Str(nowyear)),2,"0")+".dbf" &&資料庫位置
Use &dbfl In 0 ALIAS mmm
Select *;
from mmm;
Where mmm.Date Between Thisform.txtbgndate.Value And Thisform.txtenddate.Value
Endfor
Close All

會出現"Alias name is always in use"，想請問&（巨集）是否無法這樣使用

[nelsonchuang]

答案很明顯地已經出來了,你有去瞭解Alias name is always in use這一句話的意義嗎?

[syntech]

和 巨集 無關 +1

[Terry1211]

感謝兩位回應
我發現到，假如我查詢93-96年的DBF，
雖然For跑了三次，但抓到的DBF卻都是93，
不知道哪否給我個方向，如何利用迴圈同時動態抓出93-96的DBF，^^

[syntech]

1." APPEND FROM " 很好用
2. DEBUG 是你的責任. 顯示出來看看不就知道了

[chilin]

delta = Year(Thisform.txtenddate.Value)-Year(Thisform.txtbgndate.Value)
For i=0 To delta
nowyear= (Year(Thisform.txtbgndate.Value)+i)-1911
dbfl="E:\temp\n"+Padl(Allt(Str(nowyear)),2,"0")+".dbf" &&資料庫位置
Use &dbfl In 0 ALIAS mmm
Select *;
from mmm;
Where mmm.Date Between Thisform.txtbgndate.Value And Thisform.txtenddate.Value
use in mmm &&將alias mmm 關閉
Endfor
Close All

[saint]

應該是你用了..OO語法...
VFP的 SQL Parse 會看不懂你用的 Thisform.txtbgndate.Value
換一下吧..= ="