powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / простейшая задача
6 сообщений из 6, страница 1 из 1
простейшая задача
    #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
простейшая задача
    #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
простейшая задача
    #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
простейшая задача
    #38688586
Trish
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Penner,

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


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