請問各位:
使用 fr3(或以上), 在Script 上要取值存值, 用 Get(), Set() 操作
例如, 定義了一個 myVariable 的變數在 fr3的 Variables 中
於Script中(如 xxxx.onＢＥＦＯＲＥＰＲＩＮＴ) 以下的做法是可行的
procedure .....
var mydata: string;
begin
mydata:= Get('myVariable');
...
Set('myVariable', mydata)
end;

但如果我要取出一個 欄位值, 不管我如何下, 都會出現 Expect ; ... (忘了完整錯誤訊息)的錯誤
例如, 在 fr2.5中 我這麼做 (mydata 必須在 fr2.5中先宣告)
mydata:= [frDatatSet1."FIELD1"]
在 fr3 中
procedure .....
var mydata: string;
begin
mydata:= [frxDataSet1."FIELD1"] --> 錯誤
mydata:= ＜frxDataSet1."FIELD1"]＞ --> 錯誤, 因為＜＞ 會變成算式
mydata:= Get([frxDataSet1."FIELD1"] ) --> 一樣錯誤
mydata:= Get(frxDataSet1."FIELD1" ) --> 一樣錯誤
mydata:= Get(＜frxDataSet1."FIELD1"]＞) --> 一樣錯誤
....
end;
所以想請問各位有寫過 fr3 的朋友們, 知不知道要如何下才是對的
(我要的是把欄位某值取出定義到一個變數值, 而也找了很多fr3, fr4的網路資料, 有提及Script, 但都沒講到這段)

編輯記錄

這是 以前 開發的程式碼 , 提供給您參考

[code delphi]
procedure Memo6OnAfterData(Sender: TfrxComponent);
var
rSubTot : real;
begin
// rSubTot := rSubTot ( <
// UniDACQuery1."los_qty">)*;

if (-1) = 0 then
begin
Memo18.text := '0';
end;

if -1 > 0 then
begin
Memo18.text := FloatToStr(memo18.value Memo6.value);
end;


end;
[/code]

謝謝提供所資訊,
所以 fr3 是以 memo.text來取出欄位值囉! 但如果我是要寫在 on B eforePrint 之前那又該怎麼辦呢?
我想應該 fr 報表是有提供 欄位值 如何存入到變數值的功能吧!
還是, 我想到, 是不是有可能利用 fr 內建 string function 來達成呢?
我抽空再測試一下, 或許可行!
===================引 用 ufjjc 文 章===================
這是 以前 開發的程式碼 , 提供給您參考

[code delphi]
procedure Memo6OnAfterData(Sender: TfrxComponent);
var
rSubTot : real;
begin
// rSubTot := rSubTot ( <
// UniDACQuery1."los_qty">)*;

if (-1) = 0 then
begin
Memo18.text := '0';
end;

if -1 > 0 then
begin
Memo18.text := FloatToStr(memo18.value Memo6.value);
end;


end;
[/code]

測試 ok

procedure Page1OBeforePrint(Sender: TfrxComponent);
var
sCust : string;
begin
sCust := ;
ShowMessage('Data:' sCust);
end;

感謝提供,
這個方法我曾試過不行, 不知是不是版本問題,
找個時間我再測一下, 謝謝!
===================引 用 ufjjc 文 章===================
測試 ok

procedure Page1OBeforePrint(Sender: TfrxComponent);
var
sCust : string;
begin
sCust := ;
ShowMessage('Data:' sCust);
end;

終於測出可行的用法
var data: string;
begin
data:= '';
Set('hPage', 1);
if = then Set('hCounter',data);
end;

重點在 data 的給值, 不可這樣使用 data:=
我一直卡在這裡, 然後用 Set() 就引發錯誤,
而我發現 data 必須把欄位值變成一個字串, 才能丟回Vraiables中