用quickrep做主从报表，从表的列合计数怎样转英文大写(200分)

不好意思，上面的没测试：
我测试时才发现，无论我怎么写，得到的值都为空，后来我采用一个变通的方法，用一个变量
将得到的值记录下来，就可以了：
var
Form1 : TForm1;
implementation
var
vl_Value: string;//定义一个变量，记录合计值
{$R *.DFM}
//在QRExpr1.OnPrint事件时取得合计值
procedure TForm1.QRExpr1Print(sender: TObject;
var Value: string);
begin
vl_Value := Value;//将合计值写入为量,类型为字符型
end;

//在QrLabel的OnPrint事件里赋值
procedure TForm1.QRLabel1Print(sender: TObject;
var Value: string);
begin
Value := vl_Value;//将刚记录的合计值写入Qrlabel；
end;

//值已经得到了，你自己改一下吧，应该可以，如果还得不到值，
//可能是QrLabel定义的位置在QrExpr1之前，把它放到QrExpr1之后定义就可以了

TO:svw0506: 老兄，按你提供的方法真的可以了！我应该拜你为师啦，非常的感谢你！
我的QQ是：56978718.有空交个朋友，我是昨天注册第一次来大富翁的。
为这个问题我已经把全部的200分都奉上了！我想我很快就能把分挣回来的！
为感谢大家的参与，我将给他们每人五分，剩下的150分全给你！
这样分配分数有任何问题请联络！

给每个参与者五分，剩下的170给svw0506