Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DevExpress TcxGrid - как добраться до НД при MultiSelet?


Ega23 ©   (2009-05-25 18:07:00) 

С DevExpress толком не работал, сижу, разбираюсь
Есть набор данных. Есть TcxGrid. Как вывести информацию из НД - вроде как-то разобрался. Теперь задача в другом.
MultiSelect у грида выставлен в True.
Нужно перебрать все выделенные ряды и "достучаться" до соответствующих им записей в НД.
В обычном гриде это, ЕМНИП, через букмарки делается. А как сделать в этом - ну уже просто весь мозг сломал. Подскажите, если кто в курсе.


Ega23   (2009-05-28 11:56:00) [1]

Да такую я уже сделал. Думал что попроще вдруг есть...


Ольга   (2009-05-28 11:44:00) [2]


procedure TForm1.cxButton1Click(Sender: TObject);
var i: integer;  str: string;
begin
 str:='';
 for i:=0 to TableView1.ViewData.RowCount - 1 do
 if TableView1.ViewData.Rows[i].Selected then
    if ADOQuery1.Locate('id',TableView1.ViewData.Rows[i].Values[TableView1ID.Index],[])  then
       str:=str+ADOQuery1.FieldByName('id').AsString+';';
 Label1.Caption:=str;
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо