我使用的是CR版本13.0.2.000。我想显示以下记录
1,2,5,10,50,100
以下列方式
$1
$2
$5
$10
$50
$100
我尝试过替换方法,它成功地按列显示数据,但不知道如何在每个元素开始之前附加$
符号
我试过的公式如下:
Replace({Table7.Value},",",chrw(10))
答案 0 :(得分:1)
请注意,您无法使用公式制作'行;这需要在数据库中完成。
如果您只想更改显示,请尝试:
// {@display}
Local Stringvar CRLF := Chr(10)+Chr(13);
// convert values to an array; 1,2,5,10,50,100
Stringvar Array tokens := Split({Table7.Value}, ",");
// join array
"$" + Join( tokens, CRLF + "$");
如果你需要统计数组,请尝试:
// {@aggregate}
Local Numbervar i;
Local Numbervar x;
// tally
for i := 1 to ubound(tokens) do (
x := x + ToNumber(tokens[i]);
);
// display
x
答案 1 :(得分:-1)
试试这个解决方案。我试过硬编码字符串,它对我有用。
WhilePrintingRecords;
Local StringVar Array x:=split({Table7.Value},",");
Local NumberVar i;
Local Stringvar y;
for i:=1 to Count(x) do
y:=y+"$"+x[i]+",";
Replace(y,",",chrw(13))