У меня одна проблема, не могу понять, почему даже если в форму введено определённое значение порядкового номера, выводится сообщение “Порядковый номер не может быть равен 0”. Странно, из-за этого запись добавить невозможно. Не могу понять, почему программа не принимает введенное значение и выводит сообщение будто введено нулевое значение. Иногда выводит data type mistage, когда вводишь просто последовательность чисел. Но запись не добавляется в любом случае))
Подскажите, если знаете, в чём здесь дело. Команда приведена ниже. На рисунке – данная форма.




SELECT tablestud
SET ORDER TO ord
IF VAL(thisform.pageframe1.page2.text1.text)=0
messagebox("Порядковый номер не может быть равен 0",0+11+0,"Предупреждение")
ELSE
IF SEEK(VAL(thisform.pageframe1.page2.text1.text))
messagebox("Такая запись уже существует",0+11+0,"Предупреждение")
else
append blank
replace ordernom with VAL(thisform.pageframe1.page2.text1.text),;
fam with alltrim(thisform.pageframe1.page2.text2.text),;
name with alltrim(thisform.pageframe1.page2.text3.text),;
otch with alltrim(thisform.pageframe1.page2.text4.text),;
nomer_file with alltrim(thisform.pageframe1.page2.text5.text),;
date_do with thisform.pageframe1.page2.text6.text,;
date_go with thisform.pageframe1.page2.text7.text
messagebox("Запись добавлена",0+11+0,"Предупреждение")
thisform.refresh()
thisform.pageframe1.page2.text1.value=0
thisform.pageframe1.page2.text2.value=''
thisform.pageframe1.page2.text3.value=''
thisform.pageframe1.page2.text4.value=''
thisform.pageframe1.page2.text5.value=''
thisform.pageframe1.page2.text6.value=0
thisform.pageframe1.page2.text7.value=0
thisform.pageframe1.page3.grid1.refresh
MESSAGEBOX(" Введите данные")
ENDIF
endif

Если вводишь число - выодит data type mistake
Может функцию VAL заменить или убрать, я не знаю что тут сделать.
Debugger ссылается вот на эту строку

IF SEEK(VAL(thisform.pageframe1.page2.text1.text))

:-(

Я знаю...( Просто не знаю как это написать :) Чтобы работало.. :(

Ещё... Не то тут написала. У меня вместо этого

date_do with thisform.pageframe1.page2.text6.text,;
date_go with thisform.pageframe1.page2.text7.text
стоит вот это
date_do with CTOD(thisform.pageframe1.page2.text6.text),;
date_go with CTOD(thisform.pageframe1.page2.text7.text)

Функция CTOD тут тоже не подходит, но чем её заменить не знаю.
У меня в данном сл. не дата, а число.

Вот

Попробовала. То же самое... Всё время выводится "Порядковый номер не может быть равен 0"
Или data type mistage (в случае ввода числа в пор. номер)
Debugger ссылается уже на эту строку

replace ordernom with VAL(thisform.pageframe1.page2.text1.text),;

Хм... И можно спросить, как эту

IF VAL(thisform.pageframe1.page2.text1.text)=0

функцию ещё оформить более грамотно, чтобы не было таких заморочек с вводом ненулевых значений в порядковый номер? Можно ли контроль оформить по-другому?

Меняются буквенная и цифровая части.
Есть разделитель.
Но количество букв при этом тоже может меняться то есть

ЭПИ-21

Э-12

АМ-32

То есть буквы и цифры отдельно. С разделителем...
Количество может меняться. Но буквенная и цифровая части не перемешиваются.

автортогда вариантов два:
1. Хранить все данные в одном поле, а при проверке выделять цифровую часть, например так:

nomer=substr(stroka,at("-",stroka)+1)

2. Все-таки разделить буквенную и цифровую части номера на два поля (разделитель игнорировать), а при вводе данных организовать интерактивную проверку ввода (если очередной символ, вводимый в буквенную часть номера - цифра, то закончить ввод буквенной части и перейти к вводу числовой части номера; если в числовую часть номера ввели букву, то выдать сообщение об ошибке и прекратить ввод)

Спасибо большое, я попробую)

авторНу, так и держи свой номер как символьное поле и проверяй не на равенство нулу а на непустоту

А как это сделать?

Спасибо большое)))) ^_______^