水晶报表中除去某数字类型字段小数点后多余的零
Local StringVar strTemp := ToText({Command.WorkLoad}, 2,"");
Local NumberVar i;
Local StringVar str := "";
Local NumberVar strLen := Length (strTemp);
For i := strLen To 1 Step -1 Do
(
If strTemp[i] = "." Then
( //Integer,we should delete the point
str := Left(strTemp, i-1);
Exit For
)
Else If strTemp[i] <> "0" then
(
str := Left(strTemp, i);
Exit For
)
);
//Leading Zero
If str[1] = "." Then
(
str := "0"+str;
);
Str
在小数点前零不显示的解决方案
if right(ToText ({Command.WorkLoad},2,"" ),2)= ".00"
then cstr({Command.WorkLoad},2,"")//显示小数位数为0
else if {Command.WorkLoad}<1 and {Command.WorkLoad}>0
then "0"+cstr({Command.WorkLoad},2,"")
else cstr({Command.WorkLoad},2,"")//显示小数位数为2