Как я могу записать Crystal Report Expression в код Vb?

Question

Я новичок в Crystal Reports и работаю над активной версией Jap 9.5.Я недавно начал работать над ними, и я хочу знать, можно ли преобразовать выражения отчета Crystal в эквивалентный код VB, чтобы я мог использовать их в Активном отчете (SSRS), (. Rdlx)

Такжеприведенные ниже кристаллические выражения отчета сами по себе выглядят как код vb (кто-то исправит меня, если я ошибаюсь).

формула отчета Crystal:

A) Формула1:

numberVar iDay := ToNumber(Right(Cstr({@PrntStartDate}), 2)) + 24; select iDay case 1 : {wk_TORIO0430_b.AcquisitionAmnt1} case 2 : {wk_TORIO0430_b.AcquisitionAmnt2} case 3 : {wk_TORIO0430_b.AcquisitionAmnt3}

B) Формула 2:

numberVar iDay;
stringvar sDay;

If (12 <= ToNumber({?NoOfDays})) Then
numberVar iDay := ToNumber (Right ({?StartDate}, 2)) + 11;

if iDay < 10 then
sDay := "0" + left(Cstr(iDay), 1)
else
sDay :=  left(Cstr(iDay), 2);
sDay + "(" + Left(WeekDayName(WeekDay(CDate (ToNumber (Left ({?StartDate},4)),ToNumber (Mid ({?StartDate}, 5, 2)) , iDay))), 1) +  ")";

C) Формула 3:

numberVar iPos1 := InStr({?StartDate}, "年");
numberVar iPos2 := InStr({?StartDate}, "月");

numberVar iPos3 := InStr({?StartDate}, "日");

stringVar sYr := left ({?StartDate}, 2);

stringVar sMonth := mid ({?StartDate}, iPos1 + 2, (((iPos2) - (iPos1)-3)));

sMonth := IIF (Length(sMonth) = 1, "0" + sMonth, sMonth);

stringVar sDay := mid ({?StartDate}, iPos2 + 2, (((iPos3) - (iPos2)-3)));

sDay := IIF (Length(sDay) = 1, "0" + sDay, sDay);

Теперь я могу преобразовать эту формулу кристалла в код VB?Пожалуйста, помогите мне.

Answer 1

Вам не нужно конвертировать этот код в VB.Если у вас есть файлы RPT, вы можете использовать встроенный инструмент преобразования в ActiveReports для преобразования отчетов Crystal в RDL.Отчеты RDL также имеют встроенную поддержку выражений.Выражения похожи на MS и SSRS и не так сложны, как предоставленный вами код.Если у вас по-прежнему возникают проблемы или вам нужны дополнительные рекомендации, вы можете отправить заявку в службу поддержки на supportone.componentone.com.