FoxClub Forums > Visual Foxpro, Foxpro for DOS > Удаление строк ::

• Войти

Удаление строк
Tempih Сообщений: 4 Дата регистрации: 14.09.2019	Tempih 15.09.19 21:11:45 Здравствуйте, у меня есть from в которой есть List, в нем хранятся названия таблиц, при нажатии кнопки у меня открывается выбранная таблица в новой форме. В новой форме есть кнопка, по нажатию на которую должна удалятся текущая строка, но удаляется последняя строка. Можно ли это исправить? SET DELETED ON прописан в основной форме Код новой формы Thisform.Grid1.RecordSource = "ALLTRIM(form1.List1.Value)" Код кнопки Thisform.Grid1.RecordSource = "" SELECT ALLTRIM(form1.List1.Value) DELETE Thisform.Grid1.RecordSource = "ALLTRIM(form1.List1.Value)"

Tempih

Сообщений: 4
Дата регистрации: 14.09.2019

Tempih

15.09.19 21:11:45

Здравствуйте, у меня есть from в которой есть List, в нем хранятся названия таблиц, при нажатии кнопки у меня открывается выбранная таблица в новой форме. В новой форме есть кнопка, по нажатию на которую должна удалятся текущая строка, но удаляется последняя строка. Можно ли это исправить? SET DELETED ON прописан в основной форме
Код новой формы


Thisform.Grid1.RecordSource = "ALLTRIM(form1.List1.Value)"

Код кнопки


Thisform.Grid1.RecordSource = ""
SELECT ALLTRIM(form1.List1.Value)
DELETE
Thisform.Grid1.RecordSource = "ALLTRIM(form1.List1.Value)"

Re: Удаление строк
AndyNigmatec Сообщений: 1573 Откуда: Волгоград Дата регистрации: 28.06.2015	AndyNigmatec 15.09.19 21:47:28 а это Thisform.Grid1.RecordSource = "" зачем?

Re: Удаление строк
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 15.09.19 21:49:34 AndyNigmatec а это Thisform.Grid1.RecordSource = "" зачем? Т.е. все остальные строки кода, ну кроме команды DELETE, тебя совершенно не смущают ------------------ WBR, Igor

Re: Удаление строк
Tempih Сообщений: 4 Дата регистрации: 14.09.2019	Tempih 15.09.19 22:27:53 Эта строка нужна чтобы обновлять grid.Если просто написать DELETE никаких изменений не происходит Исправлено 1 раз(а). Последнее : Tempih, 15.09.19 22:28

Re: Удаление строк
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 15.09.19 22:47:39 Это строка НЕ нужна чтобы обновлять грид. ------------------ WBR, Igor

Re: Удаление строк
Tempih Сообщений: 4 Дата регистрации: 14.09.2019	Tempih 15.09.19 22:49:58 Как изменить код чтобы он начал работать корректно?

Re: Удаление строк
AndyNigmatec Сообщений: 1573 Откуда: Волгоград Дата регистрации: 28.06.2015	AndyNigmatec 16.09.19 07:32:21 Tempih Как изменить код чтобы он начал работать корректно? Ну для начала глянуть как работает команда DELETE - а она удаляет (помечает на удаление) текущую запись в текущей табл/курсоре, и ежели табл/курсор напрямую отображена в грид - то он как раз и "покажет" текущую - т.е. ту на которой находится указатель. т.е. убрав отсюда Tempih ~~Thisform.Grid1.RecordSource = ""~~ SELECT ALLTRIM(form1.List1.Value) DELETE ~~Thisform.Grid1.RecordSource = "ALLTRIM(form1.List1.Value)"~~ Thisform.Grid1.Refresh() переназначение источника данная локальная проблема думаю решится ... но само построение конечно оставляет желать как говорится как минимум работать с алиасами таким образом: ALLTRIM(form1.List1.Value) я бы не стал ))) ... и это еще не поднимая вопроса о том как заполнялся List1, как открывались табл. и прочее Исправлено 3 раз(а). Последнее : AndyNigmatec, 16.09.19 07:39

Re: Удаление строк

AndyNigmatec

Сообщений: 1573
Откуда: Волгоград
Дата регистрации: 28.06.2015

AndyNigmatec

16.09.19 07:32:21

Tempih
Как изменить код чтобы он начал работать корректно?

Ну для начала глянуть как работает команда DELETE - а она удаляет (помечает на удаление) текущую запись в текущей табл/курсоре, и ежели табл/курсор напрямую отображена в грид - то он как раз и "покажет" текущую - т.е. ту на которой находится указатель.
т.е. убрав отсюда

Tempih
~~Thisform.Grid1.RecordSource = ""~~
SELECT ALLTRIM(form1.List1.Value)
DELETE
~~Thisform.Grid1.RecordSource = "ALLTRIM(form1.List1.Value)"~~
Thisform.Grid1.Refresh()

переназначение источника данная локальная проблема думаю решится ... но само построение конечно оставляет желать как говорится

как минимум работать с алиасами таким образом:


ALLTRIM(form1.List1.Value)

я бы не стал ))) ... и это еще не поднимая вопроса о том как заполнялся List1, как открывались табл. и прочее

Исправлено 3 раз(а). Последнее : AndyNigmatec, 16.09.19 07:39

Re: Удаление строк
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 16.09.19 17:18:40 2Tempih Бросай ты это дело. Во первых перспектив у фокса нет и изучать его нет смысла. А во вторых, если ты не можешь самостоятельно решить элементарную задачу, то это не твоё. Без обид. Я из добрых побуждений.

Re: Удаление строк
Simple777 Автор Сообщений: 33855 Дата регистрации: 05.11.2006	Simple777 16.09.19 17:48:48 Taran Во первых перспектив у фокса нет Сразу вспомнился анекдот из деревенской жизни про Шарика, у которого как раз перспективы были...

Re: Удаление строк
Taran Сообщений: 13624 Откуда: Красноярск Дата регистрации: 16.01.2008	Taran 16.09.19 19:33:26 Х.з. но мне кажется анекдот не уместен. Зачем пытать иллюзии? Старые проекты могут жить вечно.. Отн. Вопрос .... Да ни о чем. Сливаюсь.

Re: Удаление строк
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 16.09.19 22:42:08 Да это очередной студент - сдаст лабу и забудет ------------------ WBR, Igor

Re: Удаление строк
Божья_коровка Сообщений: 25731 Дата регистрации: 23.08.2001	Божья_коровка 17.09.19 10:05:52 Igor Korolyov Да это очередной студент - сдаст лабу и забудет А чего это он лабу в начале сентября сдает? Учебный год только только начался... ------------------ Жись, она как зёбра, полоса белая, полоса черная, а мне всегда задница достается... Исправлено 1 раз(а). Последнее : Божья_коровка, 17.09.19 10:06

Re: Удаление строк

Божья_коровка

Сообщений: 25731
Дата регистрации: 23.08.2001

Божья_коровка

17.09.19 10:05:52

Igor Korolyov
Да это очередной студент - сдаст лабу и забудет

А чего это он лабу в начале сентября сдает?

Учебный год только только начался...

------------------
Жись, она как зёбра, полоса белая, полоса черная, а мне всегда задница достается...

Исправлено 1 раз(а). Последнее : Божья_коровка, 17.09.19 10:06

Re: Удаление строк
pasha_usue Сообщений: 3649 Откуда: Е-бург Дата регистрации: 06.10.2006	pasha_usue 17.09.19 10:28:02 Божья_коровка Igor Korolyov Да это очередной студент - сдаст лабу и забудет А чего это он лабу в начале сентября сдает? Учебный год только только начался... Ответственный.

Re: Удаление строк
Simple777 Автор Сообщений: 33855 Дата регистрации: 05.11.2006	Simple777 17.09.19 10:59:06 Божья_коровка Igor Korolyov Да это очередной студент - сдаст лабу и забудет А чего это он лабу в начале сентября сдает? Учебный год только только начался... С прошлого учебного года "хвост висит".

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 21 (Гостей: 21)