РасширенныйCase... / Microsoft Access

ReSQL.ru

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

Гость

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

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

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / РасширенныйCase...

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

РасширенныйCase...

#32212447

G&P

Участник

Сообщения: 356

Рейтинг: 0 / 0

Возник вопрос. Можно ли найти замену такой ситуации: есть несколько вложенных If 'ов, причем каждый проверяет значения нескольких полей. Что-то типа:

Код: plaintext

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

if (field1.Value= 1 )and(field2.Value= 0 )and(field3.Value= 0 ) then
.............................
else
  if (field1.Value= 1 )and(field2.Value= 1 )and(field3.Value= 0 ) then
  .............................
  else
    if (field1.Value= 1 )and(field2.Value= 0 )and(field3.Value= 1 ) then
    .............................
    .............................
    .............................
    else
    .............................
    end if
  end if
end if

С помощью Case можно было бы это реализовать в таком виде:

Код: plaintext

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

Select Case (field1.Value,field2.Value,field3.Value)
case  1 , 0 , 0  
...........................
case  1 , 1 , 0  
...........................
case  1 , 0 , 1 
...........................
End Select

А возможно ли?

...

Рейтинг:

0 / 0

18.07.2003, 17:16

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

РасширенныйCase...

#32212469

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Код: plaintext

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

Select Case (format(field1.Value, "000 ") & format(field2.Value, "000 ") & format(field3.Value, "000 "))
case  "001000000 "
...........................
case  "001001000 "
...........................
case  "001000001 "
...........................
End Select

...

Рейтинг:

0 / 0

18.07.2003, 17:37

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

РасширенныйCase...

#32212479

G&P

Участник

Сообщения: 356

Рейтинг: 0 / 0

2Владимир Саныч:
Красивое решение! Но...
А если нужно проверять не числовые значения, а, к примеру,
(IsNull(Dmax(бла-бла-бла1))=True) and (IsNull(Dmax(бла-бла-бла2)=False) and (IsNull(Dmax(бла-бла-бла3)=False)?
Как в этом случае быть? Неужто придется выстраивать огромную иерархию ифов?

...

Рейтинг:

0 / 0

18.07.2003, 17:43

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

РасширенныйCase...

#32212493

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Если значения логические (типа IsNull и т.п.), то их можно преобразовать к нулям и единицам, сцепить в одну строчку и по ее значениям кейситься.

Function BooToMoo(b As Boolean) As String
BooToMoo = IIf(b, "1", "0")
End Function

Select Case BooToMoo(IsNull(f)) & BooToMoo(g=5)
Case "11"
Case "00"

...

Рейтинг:

0 / 0

18.07.2003, 17:50

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

РасширенныйCase...

#32212501

G&P

Участник

Сообщения: 356

Рейтинг: 0 / 0

Саныч, спасибо за мыслЮ...

...

Рейтинг:

0 / 0

18.07.2003, 17:54

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

РасширенныйCase...

#32212628

вадя

Участник

Откуда: Екатеринбург

Сообщения: 19 399

Рейтинг: 0 / 0

саныч и мне понравилось
из прошлых лет помню нечто подобное требовалось.

...

Рейтинг:

0 / 0

18.07.2003, 20:49

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

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

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / РасширенныйCase...

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

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

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

start [/forum/topic.php?fid=45&msg=32212479&tid=1680436]:	0ms
get settings:	6ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	144ms
get topic data:	9ms
get forum data:	2ms
get page messages:	45ms
get tp. blocked users:	1ms
others:	205ms

total:	432ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы