크리스탈 보고서에 일련 번호를 로마자 (i, ii, iii, iv 등)로 표시해야합니다. 레코드 번호 (1,2,3,4 ...)로 캡처 한 일련 번호가 있습니다. 그래서 크리스탈 리포트에서해야 할 일은 무엇입니까?크리스탈 보고서에 일련 번호를 로마자로 표시
6
A
답변
1
나는 많은 것을 할 수 없다. 나는 단순히 크리스탈로 this VB Helper article에서 코드를 포팅하지만 재미있는 운동이었다
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({[email protected]});
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, "");
은 단순히 변수로 내
{[email protected]}
매개 변수의 자리를 대체하고, 모든 설정이 끝난 것입니다.
1
Crystal Report에서 제공하는 Roman() 함수를 사용하십시오.