Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / простейшая задача / 6 сообщений из 6, страница 1 из 1
04.07.2014, 17:04
    #38688217
Trish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простейшая задача
у меня есть: ole3.cells(26,7).Value=m.mnn

если m.mnn=0 ТО ole3.cells(26,7).Value=m.TNN. простейшее задание у меня не получается.

IF VAL(ALLTRIM(m.mnn))=0

ole3.cells(26,7).Value=m.mnn
ELSE
ole3.cells(26,7).Value=m.TNN
ENDIF
...
Рейтинг: 0 / 0
04.07.2014, 19:00
    #38688360
Penner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простейшая задача
Do Case
case Vartype(m.mnn)='C' and VAL(m.mnn)=0
ole3.cells(26,7).Value=m.TNN
case Vartype(m.mnn)='N' and m.mnn=0
ole3.cells(26,7).Value=m.TNN
ENDIF
...
Рейтинг: 0 / 0
04.07.2014, 19:01
    #38688363
Penner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простейшая задача
Do Case
case Vartype(m.mnn)='C' and VAL(m.mnn)=0
ole3.cells(26,7).Value=m.TNN
case Vartype(m.mnn)='N' and m.mnn=0
ole3.cells(26,7).Value=m.TNN
ENCASE
...
Рейтинг: 0 / 0
05.07.2014, 13:24
    #38688586
Trish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простейшая задача
Penner,

я не пойму, что мне писать под 'C' и 'N'. у меня есть условие, ole3.cells(26,7).Value=m.mnn, если m.mnn=0, то нужно чтобы писалась tnn и все. но как я не пытаюсь, пишется что - то одно.
...
Рейтинг: 0 / 0
05.07.2014, 14:44
    #38688598
Trish
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простейшая задача
Trish,
У МЕНЯ ВСЕ ПОЛУЧИЛОСЬ, СПАСИБО ЗА ПОМОЩЬ! ИЗВИНИТЕ ЗА БЕСПОКОЙСТВО!
...
Рейтинг: 0 / 0
05.07.2014, 23:14
    #38688727
Penner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
простейшая задача
язык программирования нужно учить, а не изобретать
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / простейшая задача / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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