C
cwb1128
Unregistered / Unconfirmed
GUEST, unregistred user!
我这样写的:
function TReportForm.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
frxReport1.AddFunction('NumToChnStr');
if MethodName = 'NumToChnStr' then
Result := NumToChnStr(Params);
end;
然后在下面一句话中应用:
TfrxMemoView(frxReport1.FindObject('Memo41')).Text:='[NumToChnStr([SUM(<frxDBDataset1."unloadfee">,MasterData1)])]';
为什么 说不识别 NumToChnStr 这个函数啊。请高手指点?
function TReportForm.frxReport1UserFunction(const MethodName: String;
var Params: Variant): Variant;
begin
frxReport1.AddFunction('NumToChnStr');
if MethodName = 'NumToChnStr' then
Result := NumToChnStr(Params);
end;
然后在下面一句话中应用:
TfrxMemoView(frxReport1.FindObject('Memo41')).Text:='[NumToChnStr([SUM(<frxDBDataset1."unloadfee">,MasterData1)])]';
为什么 说不识别 NumToChnStr 这个函数啊。请高手指点?