Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / if ...else...do.. while / 2 сообщений из 2, страница 1 из 1
21.06.2007, 12:47
    #34610448
Kwasti
Kwasti
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if ...else...do.. while
в кристал репортс (в9.22) нужно выполнить следующее:
Shared stringVar npp1;
Shared numberVar npp2;
Local stringVar npp3;
if npp2<{ViewWorkObj.indentation}
then npp1:=npp1+ iif(npp2=0,"1",".1")
else
if npp2>{ViewWorkObj.indentation}
then
do (
npp3:=right(npp1,1);
npp1:=left(npp1,len(npp1)-1))
while npp3="." ;
npp2:={ViewWorkObj.indentation};
npp1;

требует строку вместо выделенного фрагмента...
подскажите что не так?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.06.2007, 12:34
    #34613328
Alexander Bor.
Alexander Bor.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
if ...else...do.. while
Правильно требует.
Т.к. в then и else должны возвращаться данные одного типа. А цикл возвращает булевский (true).
Для обхода этого после else поставьте скобки и добавьте пустую строку:
else
(
if npp2>{ViewWorkObj.indentation} then
do (
npp3:=right(npp1,1);
npp1:=left(npp1,len(npp1)-1)
)
while npp3="." ;
""
)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Отчетные системы [игнор отключен] [закрыт для гостей] / if ...else...do.. while / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]