Всем привет делаю курсовую работу по FoxPro. Все сделал, но есть загвостка в форме У меня есть на форме кнопка добавить она работает хорошо вот код CLOSE INDEX
SELECT trener
&&SET INDEX TO Trener.CDX ORDER Tag key_tr

&&SET ORDER TO Tag key_tr OF Trener.cdx
GOTO BOTTOM
n = trener.key_tr + 1
MESSAGEBOX(n)
APPEND BLANK
Replace trener.key_tr WITH n,;
trener.nametrener WITH ThisForm.Text1.Value;
trener.famtrener WITH ThisForm.Text2.Value;
trener.ottrener WITH ThisForm.Text3.Value;
trener.addrestrenera WITH ThisForm.Text4.Value;
trener.fontrenera WITH ThisForm.Text5.Value;
trener.datarojtrenera WITH ThisForm.Text9.Value;
&& insert into trener (key_tr) values (n)


Проблема в другом Мне нужно создать кнопку которая будет создавать новое поле в моей таблице чтобы туда записать даные. Я думал это сделать через кнопку следуший тип таково

IF !EOF()
SKIP
ThisForm.Text1.Value=trener.nametrener
ThisForm.Text2.Value=trener.famtrener
ThisForm.Text3.Value=trener.ottrener
ThisForm.Text4.Value=trener.addrestrenera
ThisForm.Text5.Value=trener.fontrenera
ThisForm.Text6.Value=command.name_command
ThisForm.Text7.Value=command.kol_sportc
ThisForm.Text8.Value=sport.namesport
ThisForm.Text9.Value=trener.datarojtrenera
else
apend blan
endif
_screen.ActiveForm.Refresh()
помогите до ума до вести!

Походу методику преподавания по изучению FoxPro писал плотник.
Очень уж похож почерк у автора текущего топика и предыдущего недавнего (_screen.ActiveForm.Refresh() )

По делу:
Вопрос не ясен. Создать новое поле (столбец) в таблице или, всё же создать новую запись (строку) в таблице?

Базы не проектируют так, чтобы "кнопка добавляла новое поле".

-





Исправлено 2 раз(а). Последнее : pipos522, 31.12.14 00:37

pipos522
Решил попробовать сделать такую кнопку, вроде добавляет.

Часть текста скрыта

Закрыть

Этот код добавляет новое поле в существующую таблицу?

-





Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:37

Никогда не заморачивался подобными моментами.
Тупо Select..into cursor с добавлением нужных или переименованием/переделыванием столбцов, use, delete file, copy to, use

P.S. А вот добавление к элементу управления (контролу) GRID столбца вовсе никак не подразумевает модификацию таблицы

pipos522

comsel
Этот код добавляет новое поле в существующую таблицу?

что-то... куда-то... добавляет...

С огромным удовольствие посмотрю на такую кнопку в вашем "исполнении".

ALTER TABLE TableName1 ADD | ALTER [COLUMN] FieldName1

FieldType [( nFieldWidth [, nPrecision])] [NULL | NOT NULL] [CHECK lExpression1 [ERROR cMessageText1]]

[AUTOINC [NEXTVALUE NextValue [STEP StepValue]]] [DEFAULT eExpression1]

[PRIMARY KEY | UNIQUE [COLLATE cCollateSequence]]

[REFERENCES TableName2 [TAG TagName1]] [NOCPTRANS] [NOVALIDATE]

-





Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:37

pipos522
ALTER TABLE взял на вооружение, спасибо.
Вот [attachment 20702 ADD_POLE.rar] как получилось.

Нет, вы крутые программисты, я согласен. Но мне почему-то мстится, что топикстартер попутал терминологию.

-





Исправлено 2 раз(а). Последнее : pipos522, 31.12.14 00:38

pipos522
ALTER TABLE взял на вооружение, спасибо.
Вот [attachment 20702 ADD_POLE.rar] как получилось.

А зря. Требует ECCLUSIVE, а потому практически бесполезна.

pipos522
вроде добавляет.

[attachment 20711 facepalm.jpg]

-





Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:38

Самоирония - хорошее качество

-





Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:38

Igor Korolyov
Самоирония - хорошее качество

OFFTOP

Главная проблема Дэниэла Крэйга в роли Джеймса Бонда - полное отсутствие самоиронии.

А я думал, что его проблема, как Джеймса Бонда, в том, что как реальный человек, он голубой.
Кстати кто там будет в роли парня Джеймса.

сорри за оффтоп.

[attachment 20721 think1.jpg]

-





Исправлено 2 раз(а). Последнее : pipos522, 31.12.14 00:39