日期:2014-05-20 浏览次数:21294 次
Local NumberVar x1;//捆数计算
Local NumberVar i; //计数器
Local StringVar s1; //返回一个字串
//注意,Local 为必须的,限定变量作用域为当前公式。默认为全局的。
//计算捆数
x1:=RoundUp({CSDN_20110916a.配件数量}/6000);
//返回垂直字符串,注意如果小于10,则前面需要补0,这里假设总捆数不会大于100,所以只是两位,补一个0即可
//一个数字占一行,chr(13)为换行符
for i:=1 to x1 step 1 do
(
If i=1 then //这个逻辑是为了避免第一行出现一个回车
s1:='01'
else
s1:=s1+ chr(13) + Right('0' + ToText(i,0),2) //注意这里进行了一个补0的操作
);
//返回,注意公式上点右键,设置字段格式,勾选“可以增大”即可
s1;