Прошу помогите новичку | |
---|---|
Manro026 Автор Сообщений: 1 Дата регистрации: 24.12.2014 |
Всем привет делаю курсовую работу по 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() помогите до ума до вести! |
Re: Прошу помогите новичку | |
---|---|
Chemberzhy Сообщений: 13142 Откуда: Измаил Дата регистрации: 28.04.2009 |
Походу методику преподавания по изучению FoxPro писал плотник.
Очень уж похож почерк у автора текущего топика и предыдущего недавнего (_screen.ActiveForm.Refresh() ) По делу: Вопрос не ясен. Создать новое поле (столбец) в таблице или, всё же создать новую запись (строку) в таблице? |
Re: Прошу помогите новичку | |
---|---|
Влад Колосов Сообщений: 22664 Откуда: Ростов-на-Дону Дата регистрации: 05.05.2005 |
Базы не проектируют так, чтобы "кнопка добавляла новое поле".
------------------ Совершенство - это не тогда, когда нельзя ничего прибавить, а тогда, когда нечего убавить. |
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 2 раз(а). Последнее : pipos522, 31.12.14 00:37 |
Re: Прошу помогите новичку | |
---|---|
comsel Сообщений: 947 Откуда: Москва Дата регистрации: 20.09.2007 |
Этот код добавляет новое поле в существующую таблицу? |
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:37 |
Re: Прошу помогите новичку | |
---|---|
Chemberzhy Сообщений: 13142 Откуда: Измаил Дата регистрации: 28.04.2009 |
Никогда не заморачивался подобными моментами.
Тупо Select..into cursor с добавлением нужных или переименованием/переделыванием столбцов, use, delete file, copy to, use P.S. А вот добавление к элементу управления (контролу) GRID столбца вовсе никак не подразумевает модификацию таблицы |
Re: Прошу помогите новичку | |
---|---|
comsel Сообщений: 947 Откуда: Москва Дата регистрации: 20.09.2007 |
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] |
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:37 |
Re: Прошу помогите новичку | |
---|---|
pasha_usue Сообщений: 3650 Откуда: Е-бург Дата регистрации: 06.10.2006 |
Нет, вы крутые программисты, я согласен. Но мне почему-то мстится, что топикстартер попутал терминологию. |
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 2 раз(а). Последнее : pipos522, 31.12.14 00:38 |
Re: Прошу помогите новичку | |
---|---|
comsel Сообщений: 947 Откуда: Москва Дата регистрации: 20.09.2007 |
А зря. Требует ECCLUSIVE, а потому практически бесполезна. |
Re: Прошу помогите новичку | |
---|---|
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002 |
[attachment 20711 facepalm.jpg] ------------------ WBR, Igor |
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:38 |
Re: Прошу помогите новичку | |
---|---|
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002 |
Самоирония - хорошее качество
------------------ WBR, Igor |
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 1 раз(а). Последнее : pipos522, 31.12.14 00:38 |
Re: Прошу помогите новичку | |
---|---|
Simple777 Сообщений: 33855 Дата регистрации: 05.11.2006 |
OFFTOP Главная проблема Дэниэла Крэйга в роли Джеймса Бонда - полное отсутствие самоиронии. |
Re: Прошу помогите новичку | |
---|---|
alextash Сообщений: 2281 Откуда: НСК Дата регистрации: 03.05.2006 |
А я думал, что его проблема, как Джеймса Бонда, в том, что как реальный человек, он голубой.
Кстати кто там будет в роли парня Джеймса. сорри за оффтоп. |
Re: Прошу помогите новичку | |
---|---|
Simple777 Сообщений: 33855 Дата регистрации: 05.11.2006 |
[attachment 20721 think1.jpg]
|
Re: Прошу помогите новичку | |
---|---|
pipos522 Сообщений: 681 Дата регистрации: 12.08.2013 |
-
------------------ Я готов целовать песок По которому ты ходила Снова тень наискосок Рыжий берег с полоской ила... Исправлено 2 раз(а). Последнее : pipos522, 31.12.14 00:39 |
© 2000-2024 Fox Club  |