Проверка поля типа Number

@wowo · Регистрация: 03.02.2007

Студворк — интернет-сервис помощи студентам

Есть поле№1 , тип Number
Ввел туда не только числа но и буквы
Делаю сохранение
в QuerySave есть код

Code
1
Value = doc.GetItemValue( "поле№1" )(0)

В этой строке и выскакивает ошибка...
в отладчике , посмотрел что в этос поле вообще нет никакого значения.
Что-то я не могу сообразить, как сделать.. Что если тут ошибка , то выдать, например Msgbox "Ошибка"

@morphyus · 11.12.2007, 15:07

Совсем недаво поднималась єта тема -

1. Проверить на HasItem
2. Проверить Len( doc.GetItemValue( "поле№1" )(0) ) > 0

Code
1
2
3
4
5
6
7
8
On Error goto MyError
 
....
 
 
MyError:
Msgbox "KERNEL panic"
Continue = false

@wowo · 11.12.2007, 15:20

Не совсем мне это подходит
у меня есть

Code
1
2
3
4
5
6
7
8
9
10
11
12
On Error Goto MyError
...........
.........
............
............
в случае ошибки
MyError
If Strcompare( stErrMsg,"" ) = 0 Then
stErrMsg = "Код ошибки: " & Str(Err) & " Описание ошибки: " & Error$ & " Номер строки: " & Str(Erl) & " Ошибка произошла в процедуре: " & Getthreadinfo(1)
End If
Msgbox stErrMsg,48 ,"Внимание!"
Continue = False

Дак вот, оно перейдет в метку и выдаст сообщение,. типа ошибка в той строке, там-то там-то
А я бы хотел сделать до этого

Code
1
2
3
4
if в поле не число then
stErrMsg = "Введенный Вами код не является числовым"
goto MyError
End if

Далее оно переходит в метку и выводит мне красивое сообщение

@morphyus · 11.12.2007, 15:23

<span class="vbquote">(wowa @ 12:12:2007, 15:07 )</span>If Strcompare( stErrMsg,"" ) = 0 Then
[snapback]89604" rel="nofollow" target="_blank[/snapback]?[/quote]
заменить на If Len( stErrMsg ) = 0 Then

Ну так и зделайте проверку есть ли в поле какието символы, и проверти являються ли эти символы цифрами IsNumeric = True. Если фальш - выводить ссобщеие

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	11.12.2007, 15:23
	<!--QuoteBegin-wowa+12:12:2007, 15:07 --> <span class="vbquote">(wowa @ 12:12:2007, 15:07 )</span><!--QuoteEBegin-->If Strcompare( stErrMsg,"" ) = 0 Then [snapback]89604" rel="nofollow" target="_blank[/snapback]?[/quote] заменить на If Len( stErrMsg ) = 0 Then Ну так и зделайте проверку есть ли в поле какието символы, и проверти являються ли эти символы цифрами IsNumeric = True. Если фальш - выводить ссобщеие 0