如何将QRExpression.value转为double类型(50分)

M

maxxie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-29

• #1

我的报表中有一个合计数是用sum(maintable.moneny)做的，
现在我要将数字的钱数转为大写的金额,我自己写了一个函数但需要
将qrexpression.value转为double类型,但qrexpression.value为QREXvalue型，
转不起来。有谁知道如何转换呢？

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-02

• #2

QrExValue对象有两个属性:
dblResult和intResult;分别代表当前表达式的Double或Integer值,
所以直接使用就可以了:

代码:

var
  s:Double;
  i:Integer;
begin
  ...
   s:=QrExpr1.Value.dblResult;
   i:=QrExpr1.Value.intResult;
  ...
end;

 

M

maxxie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #3

谢谢你的回答,但我为什么调用qrexpr.value的时候调用的值不对呢?
我将qrexpr的resetafterprint设为true,但调用的值与显示的正确值有很大出入且不会随
翻页而变动,这是什么原因呢?
我的目的是在报表的pagefooter的最右边显示每页小计(金额),左边显示相应的中文金额,
我用一个函数将小计数转化为中文大写金额,所以需要调用qrexpr的value值
我的qrexpr是这样写的:sum(table1.total),请问你有什么好办法解决吗?
解决了一定给你加分!!!!

 

M

maxxie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-03

• #4

怎么没人能解决这个问题,是分数太少还是这问题太难了?

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-05

• #5

老大，难到我没说清楚吗？再说一遍：
直接使用：QrExpr1.Value作为你的大小写转换过程的传入参数是不行的！
但可以通过引用QrExpr1.Value.dblResult来得到QrExper1的当前值！也就
是你的合计数！那么：只要把QrExpr1.Value.dblResult作为大小写转换过
程的传入参数就可以了！
一点建议：
在问问题的时候，最好能贴一点代码出来，不一定是全部，但应该是
核心部分，有时候代码可能比你的描述更能说明问题。

 

C

ctx62

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-05

• #6

gz

 

M

maxxie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-05

• #7

虽然没用,但还是给杜宝50分

 

M

maxxie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-05

• #8

多人接受答案了。