VFP 愛用者社區

Abel · 註冊時間: 2005-03-14 文章: 189 來自: 鹿港小鎮 第 1 樓

各位大大，我想請教 Grid.RecordSource 中的巨集寫法

首先下面這個是可行的
c_a = [no_vh like] +['A200601%']
Select no_vh As 銷貨單號, cun_vh As 客戶編號, amoc_vh As 銷貨淨額 From c_HVER Where &c_a Into Table TEMP1

.grd_temp1.RecordSourceType = 0
.grd_temp1.RecordSource = 'TEMP1'

但是如果希望改寫成... Grid.RecordSourceType = 4

c_a = [no_vh like] +['A200601%']
.grd_temp1.RecordSourceType = 4 (SQL Statement)
.grd_temp1.RecordSource = 'SELECT no_vh As 銷貨單號, cun_vh As 客戶編號, amoc_vh As 銷貨淨額, '+;
'From HVER WHERE '+&c_a+' Into Cursor TEMP1'

卻會發生錯誤，我將之改為 +[']+&c_a+[']+ 也是錯的，不知道要如何寫才是正確，請大大給予指正，十分感謝。

slboy · 註冊時間: 2004-10-22 文章: 5 第 2 樓

试试:
.grd_temp1.RecordSource = 'SELECT no_vh As 銷貨單號, cun_vh As 客戶編號, amoc_vh As 銷貨淨額 From HVER WHERE &c_a Into Cursor TEMP1'

bin1x · 註冊時間: 2004-08-27 文章: 462 第 3 樓

前陣子好像有人提過吧
記得以前系統程式(那一本有著貝殼的書)裏似乎有聊過巨集
後來寫程式時
不曉得為什麼要用巨集時
&file..field 反正就這麼用第一個.是巨集結束,第二個.是使用欄位變數時
後來好像才知道&似乎是巨集開始(拍謝好像叫展開,管他的) . 是巨集結束
如果再不行
()試試看,不過應該是()不行時,才用&和.
試試看吧!好像不太像,管他的,搞不好可以用

因為說明不是這麼寫的,就算是自己扯的吧
& VarName Specifies the name of the variable or array element to reference in the macro substitution. Do not include the M. prefix that distinguishes variables from fields. Such inclusion causes a syntax error. The macro should not exceed the maximum statement length permitted in Visual FoxPro.

A variable cannot reference itself recursively in macro substitution. For example, the following generates an error message:

STORE '&gcX' TO gcX
? &gcX

Macro substitution statements that appear in DO WHILE, FOR, and SCAN are evaluated only at the start of the loop and are not reevaluated on subsequent iterations. Any changes to the variable or array element that occur within the loop are not recognized.

.cExpression The optional period (.) delimiter and .cExpression are used to append additional characters to a macro. cExpression appended to the macro with .cExpression can also be a macro. If cExpression is a property name, include an extra period (cExpression..PropertyName).

Abel · 發表於: 星期三三月 01, 2006 11:31 am 文章主題:

slboy 大大謝謝您的提供，經測試，好像還是會發生錯誤…

bin1x 大大更感謝您的回覆，可能是我資質愚笨，看不知怎麼懂…

我印象中我以前在 vfp 6 時代曾經做成功過，沒想中間才 4~5 年沒摸儘生疏如此，唉 ~ 可能是老了...

Abel · 發表於: 星期三三月 01, 2006 12:36 pm 文章主題:

剛剛利用吃午飯的時間，連線到 http://wiki.sunyear.com.tw
看了朱兄的對巨集的說明，才知道要 &xx. ，最後還要一個 . 以前都不知道，感謝朱兄

朱育興 · 發表於: 星期三三月 01, 2006 12:45 pm 文章主題:

TO Abel:

您謝錯人了，那部分是 Elleryq 兄寫的

Abel · 發表於: 星期三三月 01, 2006 2:13 pm 文章主題:

成了， try 了 N 次，在我印象中曾經做過，所以我相信一定可以的。真高興，只要改成如下便成了

.grd_temp1.RecordSource = [SELECT no_vh As 銷貨單號, cun_vh As 客戶編號, amoc_vh As 銷貨淨額, ;
From HVER WHERE &c_a. Into Cursor TEMP1]

就是這麼簡單~ 哈哈