Форма полетела - в grid всё работает исправно, НО НЕСМОТРЯ на то что в properties я всё исправила форма всё равно остаётся в формате date. То есть само текстовое поле (abl). На рисунке, как видно, grid в формате numeric то есть отображается только год но никак не могу исправить этот формат даты в полях ввода. Что нужно сделать? Возможно это из-за процедуры, которая написана в форме... Но в этом я не разбираюсь совсем.. Вот то что там написано.

LPARAMETERS nStyle
SET DATE GERMAN
SET DATE LONG
SET ORDER TO fam
IF !BOF ()
GO TOP
ENDIF
thisform.text6.Value = { . . }
thisform.text7.Value = { . . }
thisform.Grid1.SetFocus

Да, но они хотят именно год (попросили переделывать). Им не нужна здесь дата....а только год. ((

На что их (строки) заменить нужно? Нужно просто формат даты оттуда убрать а как не знаю..

Ладно, попробую. Спасибо) ^_^ Я посмотрю. Я целый день с этим мыкаюсь. Ухх....(

И всё-таки я не могу убрать этот формат даты из формы... Что мне сделать? ((
Блин.

авторЕсли я правильно понял, то даты вносятся в поля формы - text6 и text7.
да, в них.
автор1. К обработке какого события формы (или это не формы) у тебя относится
код, который ты привела в самом первом топике?
к событию show
автор2. Если это обработка события Init формы, ты сделала, то - что тебе
предложил Sergey Ch?
нет, это не обработка Init формы. Это в Show прописано.
автор3. Что у тебя стоит в Properties Format для полей text6 и text7 ?
В формате стоит YL и я это уже переделывала. Но оно не помогает. Я уже перепробовала всё, кажется. Даже комманды. (из в форме 3) В исходной таблице формат теперь стоит numeric (вместо data).
А комманды изначально были следующие.
Команда1
s=thisform.grid1.RecordSource
x = thisform.text1.value
?s
y = thisform.text2.value
z = thisform.text3.value
v = thisform.text4.value
b = thisform.text5.value
n = thisform.text6.value
m = thisform.text7.value
INSERT INTO &s(fam,name,otch,ordernom,nomer_file,date_do,date_go) VALUES (x,y,z,v,b,n,m)
ThisForm.Grid1.SetFocus()
ThisForm.Refresh()
messagebox("Запись добавлена",0+11+0,"Предупреждение")
thisform.refresh()
thisform.text1.value=''
thisform.text2.value=''
thisform.text3.value=''
thisform.text4.value=''
thisform.text5.value=''
thisform.text6.Value = { . . } (здесь я переделала на '' )
thisform.text7.Value = { . . } (здесь тоже )
thisform.grid1.refresh

Команда2
sa=thisform.grid1.RecordSource
USE &sa
*use "c:\documents and settings\ruskd.forcer\мои документы\visual foxpro projects\архив\tableemployee"
PACK
thisform.release
Команда3
SET DELETED ON
IF MESSAGEBOX('Вы действительно хотите удалить эту запись?',33)=1
DELETE
ENDIF
thisform.Refresh

Здесь имеет значение первая. Её я и переделывала. Значения форматов, масок длины - тоже. Вроде бы даже получилось : Изначально - пустая форма, в значениях дат стоят нули. вводишь всё в форму. (Имя,Фам,Отчество, Год и т. д.) - всё работает, заносится в форму. Нули исчезают. А когда вводишь во второй раз выводится "dara type mistage"... и указатель ссылается вот на эту строку команды

INSERT INTO &s(fam,name,otch,ordernom,nomer_file,date_do,date_go) VALUES

+_+

авторУбери в Properties все для таких свойств как Format, Value - полей text6 и text7.
Еще, если умеешь пользоваться Debuggeroм, то посмотри что программа пытается внести в поля date_do,date_go (как я понимаю именно по ним проблема)
Всё сделала. Нули исчезли. НО! Data type mistage теперь появляется сразу и в таблицу данные не добавляются совсем. Наверное ты прав - возможно это всё потому что изменила формат date на numeric в исходной таблице tableemploy
(date_do,date_go). Теперь не знаю что это такое.
Не умею пользоваться Debuggerом ^_^'
=(

Поставила значение "0"... Всё равно пишет data type mistage. Потом проэкспериментировала и вообще удалила
thisform.text6.Value = 0
thisform.text7.Value = 0 эти строчки. Всё стало работать (странно) но каждый раз приходится стирать значение из полдя вручную. Не знаю всё-таки что программе не нравится...

YES!!!!! Спасибо тебе огромное! Я ещё в одном месте исправила (маску поставила и некоторые мелочи) и заработало=) ^____^ Теперь всё хорошо!

Думаешь, надо это исправлять? В принципе - это однопользовательская БД. За ней только пользователи ведущие архив работают. Но не знаю. Будут потом редактировать ещё. (надеюсь это буду не я...Если бы я знала всё - мы недавно только на Фокспро учимся....)
Там есть ещё несколько глюков, которые бы мне хотелось исправить, например, когда меняешь пароль к базе он не желает этого сделать=) Так как там в табличке свойство read only))) ^_^
Но это я делать буду не сегодня - устала.