Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

Удаление нескольких записей   Найти похожие ветки 

 
aledo   (2002-01-20 16:11) [0]

Уважаемые мастера! Подскажите, как удалить одним нажатием кнопки на форме несколько записей, выбранных пользователем в DBGrid в режиме Multiselect?


 
Moscower ©   (2002-01-20 16:46) [1]


with DBGrid1.DataSource.DataSet do
for i:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
Delete;
end


 
Moscower ©   (2002-01-20 16:52) [2]

Прошу прощения, скопировал не посмотрев...


with DBGrid1 do
for i:=0 to SelectedRows.Count-1 do
begin
GotoBookmark(pointer(SelectedRows.Items[i]));
Delete;
end




 
aledo   (2002-01-20 20:11) [3]

Спасибо за идею! Все работает. Код чуть-чуть модифицировал, все стало просто отлично!

procedure TForm1.BitBtnClick(Sender: TObject);
var i : Integer;
begin
inherited;
if DBGrid.SelectedRows.Count>0 then
with DBGrid.DataSource.DataSet do
for i:=0 to DBGrid.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid.SelectedRows.Items[i]));
TTable.Delete;
end
end;



Страницы: 1 вся ветка

Текущий архив: 2002.02.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
4-42897
vivus
2001-12-18 10:47
2002.02.14
виндовая мессага.


1-42761
vopros
2002-01-31 09:42
2002.02.14
Как запустить из Delphi DOS комманду?


1-42806
Lotus
2002-01-31 21:33
2002.02.14
Что-то странное с TMemo


1-42738
MetroGnome
2002-01-30 23:04
2002.02.14
Как программно посмотреть - находиться ли курсор на компоненте, скажем на Label`е?


14-42860
Андрей Сенченко
2001-12-25 16:20
2002.02.14
Безумные размеры EXE-шников