Question

需要在我的水晶报告中显示序列号为罗马字母（i，ii，iii，iv等）。我将序列号记录为记录号（1,2,3,4 ......）。所以我必须在水晶报告中为它做些什么。

Answer 1

我无法承担太多的功劳;我只是将this VB Helper article中的代码移植到Crystal中，但这是一个有趣的练习：

NumberVar iCounter := 0;
Local StringVar ch := "";
Local NumberVar result := 0;
Local NumberVar new_value := 0;
Local NumberVar old_value := 0;
Local StringVar temp := "";

temp := UpperCase({?@Roman});

old_value = 1000;

For iCounter := 1 To Len(temp) do
(
    // See what the next character is worth.
    ch := Mid(temp, iCounter, 1);

    if ch = "I" then new_value := 1
    else if ch = "V" then new_value := 5
    else if ch = "X" then new_value := 10
    else if ch = "L" then new_value := 50
    else if ch = "C" then new_value := 100
    else if ch = "D" then new_value := 500
    else if ch = "M" then new_value := 1000;

    // See if this character is bigger
    // than the previous one.
    If new_value > old_value Then
        // The new value > the previous one.
        // Add this value to the result
        // and subtract the previous one twice.
        result := result + new_value - 2 * old_value
    Else
        // The new value <= the previous one.
        // Add it to the result.
        result := result + new_value;

    old_value := new_value;
);

// Format the number without commas or decimals
ToText(result, 0, "");

只需将我的{?@Roman}参数占位符替换为您的变量，就可以了。

Answer 2

只需使用Crystal Reports提供的Roman()功能

即可

在Crystal Reports中将序列号显示为罗马字母

2 个答案: