Условие при выборе значения / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Условие при выборе значения

5 сообщений из 5, страница 1 из 1

Условие при выборе значения

#39784869

ularsoft

Гость

Здравствуйте. Нужна помощь.
Использую OptionGroup на форме для выбора значений. В свойстве OptionGroup, InteractiveChangeEvent делаю следующее условие:

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

IF This.Value=1
IF ThisFormset.cl_kod='8' 
	IF Thisformset.cl_sm<100
   		Thisformset.FormB.txSK2.Value=0
		IF (Thisformset.cl_sm>=100) AND (Thisformset.cl_sm<10000)
	   		Thisformset.FormB.txSK2.Value=30
   		ELSE
   			Thisformset.FormB.txSK2.Value=40
   		endif
   	endif
ENDIF
ENDIF

1. Если Thisformset.cl_sm=55, я так предполагаю, что выполняется условие

Код: sql

Thisformset.cl_sm<100

то

Код: sql

Thisformset.FormB.txSK2.Value должен быть 0

к сожалению срабатывает следующее условие

Код: sql

(Thisformset.cl_sm>=100) AND (Thisformset.cl_sm<10000)

Код: sql

Thisformset.FormB.txSK2.Value приравнивается к 40

2. Если

Код: sql

Thisformset.cl_sm=5500

по идеи выполняется условие

Код: sql

(Thisformset.cl_sm>=100) AND (Thisformset.cl_sm<10000)

Код: sql

Thisformset.FormB.txSK2.Value должен быть 30

к сожалению срабатывает следующее условие

Код: sql

(Thisformset.cl_sm<=1000)

Код: sql

Thisformset.FormB.txSK2.Value приравнивается к 40

Что делать? Где у меня ошибка? Подскажите пожалуйста.

...

Рейтинг:

0 / 0

12.03.2019, 13:47

| Ответить | Цитировать | Написать

Условие при выборе значения

#39784877

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Своими словами напиши при каких значениях Thisformset.cl_sm какое должно быть Thisformset.FormB.txSK2.Value

...

Рейтинг:

0 / 0

12.03.2019, 13:59

| Ответить | Цитировать | Написать

Условие при выборе значения

#39784883

ularsoft

Гость

Dima TСвоими словами напиши при каких значениях Thisformset.cl_sm какое должно быть Thisformset.FormB.txSK2.Value

Код: sql

1.
2.
3.

Если Thisformset.cl_sm<100, то Thisformset.FormB.txSK2.Value=0
Если Thisformset.cl_sm>=100 и Thisformset.cl_sm<10000, то Thisformset.FormB.txSK2.Value=30
Если Thisformset.cl_sm>10000, то Thisformset.FormB.txSK2.Value=40

...

Рейтинг:

0 / 0

12.03.2019, 14:12

| Ответить | Цитировать | Написать

Условие при выборе значения

#39784888

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

ularsoftDima TСвоими словами напиши при каких значениях Thisformset.cl_sm какое должно быть Thisformset.FormB.txSK2.Value

Код: sql

1.
2.
3.

Если Thisformset.cl_sm<100, то Thisformset.FormB.txSK2.Value=0
Если Thisformset.cl_sm>=100 и Thisformset.cl_sm<10000, то Thisformset.FormB.txSK2.Value=30
Если Thisformset.cl_sm>10000, то Thisformset.FormB.txSK2.Value=40

Ты else пропустил

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.

	IF Thisformset.cl_sm<100
   		Thisformset.FormB.txSK2.Value=0
   	else
		IF (Thisformset.cl_sm>=100) AND (Thisformset.cl_sm<10000)
	   		Thisformset.FormB.txSK2.Value=30
   		ELSE
   			Thisformset.FormB.txSK2.Value=40
   		endif
   	endif

по другому можно так написать

Код: sql

Thisformset.FormB.txSK2.Value = icase(Thisformset.cl_sm<100, 0, Thisformset.cl_sm<10000, 30, 40)

...

Рейтинг:

0 / 0

12.03.2019, 14:24

| Ответить | Цитировать | Написать

Условие при выборе значения

#39784893

ularsoft

Гость

Дима, благодарю вас за ответы. Все супер!

...

Рейтинг:

0 / 0

12.03.2019, 14:31

| Ответить | Цитировать | Написать

5 сообщений из 5, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Условие при выборе значения

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=39784893&tid=1581686]:	0ms
get settings:	11ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	34ms
get topic data:	12ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	273ms

total:	403ms