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

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c