DBGrid

← →
OlgaL (2011-10-10 07:55) [0]

Здравствуйте программисты!!!) Подскажите пжалуйсто: Мне нужно выбрать в DBGridе склады, их может быть три, два, пять. Незнаю как выделить сразу несколько строк в DBGridе, чтобы потом по этим данным вывести отчёт...

← →
И. Павел © (2011-10-10 08:04) [1]

Установите Options->dgMultiSelect и dgRowSelect;

А вот так можно организовать цикл по выделенным строкам:
http://www.delphisources.ru/pages/faq/base/use_dbgrid_selected_rows.html

← →
KilkennyCat © (2011-10-11 02:23) [2]

> как выделить сразу несколько строк в DBGridе

используя ctrl или shift

← →
OW © (2011-10-11 09:50) [3]

данные в гриде это прошлый век,
теперь там склады :)

← →
Ega23 © (2011-10-11 10:15) [4]

> А вот так можно организовать цикл по выделенным строкам:
>
> http://www.delphisources.ru/pages/faq/base/use_dbgrid_selected_rows.html

Посмотреть, разобраться что к чему и переписать этот говнокод.

← →
Anatoly Podgoretsky © (2011-10-11 11:23) [5]

Использовать вместо DBGrid - TListView

> Посмотреть, разобраться что к чему и переписать этот говнокод.

А ведь и впрямь что-то они странный пример сделали:
if (dbgIn.SelectedRows.CurrentRowSelected = True) then
А я привык доверять delphisources.ru.

> А ведь и впрямь что-то они странный пример сделали:

Не только это.

function TForm19.Foo(aGrid: TDBGrid): Integer; var bm: TBookmark; i: Integer; aDS: TDataSet; begin Result := 0; if (aGrid.DataSource = nil) or (aGrid.DataSource.DataSet = nil) then Exit; aDS := aGrid.DataSource.DataSet; if aDS.IsEmpty then Exit; aDS.DisableControls; try bm := aDS.GetBookmark; for i := 0 to aGrid.SelectedRows.Count - 1 do begin aDS.GotoBookmark(aGrid.SelectedRows[i]); /// Что-то делаем Inc(Result); end; aDS.GotoBookmark(bm); aDS.FreeBookmark(bm); finally aDS.EnableControls; end; end;

DBGrid Найти похожие ветки