Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / опять проблема с grid / 5 сообщений из 5, страница 1 из 1
18.02.2006, 16:19
    #33553955
tem@
tem@
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять проблема с grid
в grid'e есть вложенный edit, при удалении записи
удаляется и edit, использую процедуру:

form1.Grid1.RecordSource = ""
DELETE
PACK
CLOSE TABLES
WITH form1.grid1
.RecordSourceType = 0
.RecordSource = "FULLBAZ"
.Refresh
endwith

при 1 использовании данной процедуры edit не
удаляется, а при следуюшем исчезает!!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2006, 18:22
    #33554549
Doktor Gradus
Doktor Gradus
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять проблема с grid
Странный код...

Во-первых, 1-ая строка не нужна. Нет необходимости обнулять грид перед удалением записи.

Процедура PACK, если вам действительно она нужна, должна выполняться перед выходом из пакета, на крайний случай -- при закрытии формы. Наилучшим же решением (не всегда!) является написание отдельной административной программы, из которой PACK выполняется периодически. Дело в том, что для команды PACK необходимо монопольное использование таблицы, а это не всегда возможно.

Конструкцию WITH .. ENDWITH вы используете правильно. Незачем писать form1.grid1 по 3 раза.

Ваш код можно переписать гораздо короче:

Код: plaintext
1.
2.
delete record recno()
thisform.grid1.refresh()

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

Что-нибудь вроде этого:

local ln_Answer

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
select FULLBAZ

if !eof() or !bof()
  ln_Answer = messagebox( "Вы действительно хотите удалить запись?",  4  +  32  +  0 ,"Предупреждение!")
  if ln_Answer =  6 
    delete record recno()
    thisform.grid1.refresh()
  endif
endif

Однако интересно было бы услышать гуру.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2006, 19:39
    #33554577
tem@
tem@
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять проблема с grid
Первая строка как раз нужна для того, чтоб Grid не сбрасывал
с себя все параметры, без этой строки при первых манипуляций с
базами Grid полностью сбрасывает настройки.

сама процедура работает нормально, но через несколько
удалений из таблицы, Grid всетаки сбрасывает настройки!!!!

спасибо за помощь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.02.2006, 01:32
    #33562062
Igor Korolyov
Igor Korolyov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять проблема с grid
Hi tem@!

- Не надо паковать таблицу после удаления (достаточно SET DELETE ON)
- Не надо закрывать таблицу
- Не надо использовать ResordSourceType = 0 (достаточно 1 - Alias, а саму
таблицу открывать при запуске формы - через DE или в Form.Load)

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.02.2006, 08:27
    #33569546
Zheka
Zheka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
опять проблема с grid
Так он и сбрасывает настройки из-за PACK. Как уже писалось, достаточно:

Select <myTable>
Delete
...Grid.Refresh

все.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / опять проблема с grid / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 535ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1592246]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 186ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 243ms
total:  535ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]