powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / InputMask и EMPTY - мелочь, а неприятно
3 сообщений из 3, страница 1 из 1
InputMask и EMPTY - мелочь, а неприятно
    #33786168
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Леди и джентльмены!
Наткнулась на одну мелочь, которая меня несколько удивила. Просто как-то никогда не задумывалась о таком случае.
Раньше у меня на форме стояли подряд по Tab Order'у неколько комбобоксов. Во всех (кроме последнего) в Valid было прописано мною:
Код: plaintext
1.
2.
IF EMPTY(this.value)=.f.
thisform.cmbРегистр2.Enabled=.t. && (или cmbРегистр3, или cmbРегистр4 и т.д - в зависимости от самого комбо)
ENDIF 
Теперь по ряду причин я сочла, что лучше поменять комбо на текстбоксы. У всех прописала InputMask='AA999.99'. И теперь код в Valid'е перестал срабатывать. Я так понимаю, что из-за точки EMPTY теперь всегда =.f. Выходит, что первая строка кода у меня должна быть такой:
IF THIS.VALUE=' . '
Правльно ли я все поняла?
Благодарю
...
Рейтинг: 0 / 0
InputMask и EMPTY - мелочь, а неприятно
    #33786217
Cyv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторПравльно ли я все поняла?

Правильно. Но можно и так
Код: plaintext
1.
thisform.cmbРегистр2.Enabled = !EMPTY(STRTRAN(this.value,[.],[]))
...
Рейтинг: 0 / 0
InputMask и EMPTY - мелочь, а неприятно
    #33786406
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Cyv
Правильно. Но можно и так
Код: plaintext
1.
thisform.cmbРегистр2.Enabled = !EMPTY(STRTRAN(this.value,[.],[]))

Класс! Красиво, мне понравилось, даже очень понравилось )))))))))
Да еще все в одной строке вместо трех.
Благодарю всех-всех-всех!

Елизавета Скрунскайте
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / InputMask и EMPTY - мелочь, а неприятно
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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