急需解答,簡單問題,有經驗的進來看看。
procedure Tjtrp.QRLabel12Print(sender: TObject; var Value: String);
begin
v1 :=qrexpr3.Caption ;
v2 :=qrexpr4.Caption ;
v3 :=qrexpr5.Caption ;
value :=formatfloat('0.00',strtofloat(v1)/(strtofloat(v2)+strtofloat(v3))) ;
end;
我是用rbSummary裡面用qrexpr3,qrexpr4,qrexpr5求合計,然後再用
qrexpr3,qrexpr4,qrexpr5求合計的結果再計算,可是我取不到
qrexpr3,qrexpr4,qrexpr5求合計的結果的值啊。我開始用的方法是:
procedure Tjtrp.QRExpr3Print(sender: TObject; var Value: String);
begin
v1 :=value ;
end;
procedure Tjtrp.QRExpr4Print(sender: TObject; var Value: String);
begin
v2 :=value ;
end;
procedure Tjtrp.QRExpr5Print(sender: TObject; var Value: String);
begin
v3 :=value ;
end;
但是這樣的話好象有時候v1,v2,v3的值會提示為空,所以我用上面的方法,
可用上面的方法
v1 :=qrexpr3.Caption ;
v2 :=qrexpr4.Caption ;
v3 :=qrexpr5.Caption ;
取的值並不是qrexpr3,qrexpr4,qrexpr5求合計的結果的值啊。我錯在哪裡?
procedure Tjtrp.QRLabel12Print(sender: TObject; var Value: String);
begin
v1 :=qrexpr3.Caption ;
v2 :=qrexpr4.Caption ;
v3 :=qrexpr5.Caption ;
value :=formatfloat('0.00',strtofloat(v1)/(strtofloat(v2)+strtofloat(v3))) ;
end;
我是用rbSummary裡面用qrexpr3,qrexpr4,qrexpr5求合計,然後再用
qrexpr3,qrexpr4,qrexpr5求合計的結果再計算,可是我取不到
qrexpr3,qrexpr4,qrexpr5求合計的結果的值啊。我開始用的方法是:
procedure Tjtrp.QRExpr3Print(sender: TObject; var Value: String);
begin
v1 :=value ;
end;
procedure Tjtrp.QRExpr4Print(sender: TObject; var Value: String);
begin
v2 :=value ;
end;
procedure Tjtrp.QRExpr5Print(sender: TObject; var Value: String);
begin
v3 :=value ;
end;
但是這樣的話好象有時候v1,v2,v3的值會提示為空,所以我用上面的方法,
可用上面的方法
v1 :=qrexpr3.Caption ;
v2 :=qrexpr4.Caption ;
v3 :=qrexpr5.Caption ;
取的值並不是qrexpr3,qrexpr4,qrexpr5求合計的結果的值啊。我錯在哪裡?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货