Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Удаление нескольких записей 


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;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.023 c
14-42844          Oleg Gashev           2001-12-24 22:43  2002.02.14  
С Новым Годом!!!


3-42662           MaXimka               2002-01-16 14:16  2002.02.14  
Так вот как организовать Lookup-поле с DOA !!!


3-42689           ТеньЛуны              2002-01-18 11:40  2002.02.14  
Что такое DataCube?


1-42735           Alex                  2002-01-30 21:50  2002.02.14  
Елементы комбинаторики.


3-42663           MVova                 2002-01-18 14:00  2002.02.14  
Вопрос: Как переустановить 2.5 поверх 2.6?