在水晶报表中如何将货币（￥100.50）转换成大写形式（壹百元五角）？？

Question

subsniper(@_@*晕菜了 好强啊！！！！！！！在下佩服佩服！
呵呵

Answer 1

我不知道怎么用水晶报表的公式来转换，所以只能用此下策，HOHO

Answer 2

新建水晶报表公式字段：
输入以下代码
StringVar x;
StringVar xx := "";
NumberVar z;
NumberVar i;
x := ToText(100.50});
x := Replace(x,",","");
x := Replace(x,".","");
z := length(x)-2;for i := z to -1 step -1 do
(
    select i
    case 10 : if(Mid(x,z-i+1,1)<>"0") then xx := Mid(x,z-i+1,1) + "十"
    case 9 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "亿" else xx := xx + "亿"
    case 8 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
    case 7 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
    case 6 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "拾"
    case 5 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "万" else xx := xx + "万"
    case 4 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "仟"
    case 3 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "佰"
    case 2 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) + "拾"
    case 1 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1)+"元"
    case 0 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1)+"角"
    case -1 : if(Mid(x,z-i+1,1)<>"0") then xx := xx + Mid(x,z-i+1,1) else xx :=xx+"零"
);
xx := Replace(xx,"1","壹");
xx := Replace(xx,"2","贰");
xx := Replace(xx,"3","叁");
xx := Replace(xx,"4","肆");
xx := Replace(xx,"5","伍");
xx := Replace(xx,"6","陆");
xx := Replace(xx,"7","柒");
xx := Replace(xx,"8","捌");
xx := Replace(xx,"9","玖");
     xx + "分";

Answer 3

x := ToText(100.50});
这里错了，不好意思 应为：x := ToText(100.50);
注：100.50可以为水晶报表字段。

Answer 4

to:selectlzh(你是谁) 谢了  都给你