procedure TFormLBReport.frReport1UserFunction(const Name: String; p1, p2,
p3: Variant; var Val: Variant);
begin
if AnsiCompareText('SUMTOSTR', Name) = 0 then
val := NumbertoCN(frParser.Calc(p1));
end;
NumbertoCN是自已编写的小写转大写的函数
在设计时这样调用
[sumtostr([SUM([Tablem."金额"])])]
表示将金额求和后变为大写
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024