Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Kirill1983
-
- Обычный пользователь
-
-
- Сообщения: 78
- Зарегистрирован: 05.05.2005 (Чт) 11:27
-
Kirill1983 » 13.05.2005 (Пт) 15:58
Вечер добрый...
Ситуация следущая:
- Код: Выделить всё
If rs2.Fields(1).Value = Null Then
'на условие не реагирует
End If
rs-рекордсет,значение поля(1)-Null....а в условие не заходит.
Подскажите в чем дело
-
alibek
-
- Большой Человек
-
-
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 13.05.2005 (Пт) 15:59
NULL проверяется функцией IsNull().
Lasciate ogni speranza, voi ch'entrate.
-
Kirill1983
-
- Обычный пользователь
-
-
- Сообщения: 78
- Зарегистрирован: 05.05.2005 (Чт) 11:27
-
Kirill1983 » 13.05.2005 (Пт) 16:01
If isnull(rs("Field")) then tmp="" else tmp=rs("Field")
сам докопался...всем спасиба:)
-
alibek
-
- Большой Человек
-
-
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 13.05.2005 (Пт) 16:05
Как вариант:
- Код: Выделить всё
Function NVL(Value As Variant, NullValue As Variant) As Variant
If IsNull(Value) Then NVL = NullValue Else NVL = Value
End Function
- Код: Выделить всё
tmp = NVL(rs!Field, vbNullString)
Lasciate ogni speranza, voi ch'entrate.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 60