Скачать: CL | DM;

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

---

← →
И. Павел ©   (2011-10-11 11:49) [6]

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

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

---

← →
И. Павел ©   (2011-10-11 11:51) [7]

> [6] И. Павел ©   (11.10.11 11:49)

И еще присвоили квакерам Кинговскую цитату из темной башни.

---

← →
Ega23 ©   (2011-10-11 12:00) [8]

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


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


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;



---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c