Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.01.22;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.034 c
15-1317641975
>|<
2011-10-03 15:39
2012.01.22
LOL


2-1317559190
lesstab
2011-10-02 16:39
2012.01.22
Групповое редактирование выбранных строк в ДБГриде


2-1318309519
vivaldi
2011-10-11 09:05
2012.01.22
Преобразование цвета оттенки серого в черно-белый


2-1318463535
Dmitriy
2011-10-13 03:52
2012.01.22
Как отладить приложение с компонентом timer


10-1176806385
Yanis
2007-04-17 14:39
2012.01.22
Нет ли у кого-нибудь файлика или описания