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

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

множественный выбор в DBGrid [D7, WinXP]

АндрейК ©   (2007-09-24 13:48:00) 

Здравствуйте! Подскажите про множественный выбор в DBGrid! Как вывести в memo список значений Поля1 выбранных записей. Что-то никак не получается!

---

Германн   (2007-09-25 17:46:00) [1]

> Чё-то не работает. Что бы это могло быть?
>

LogicError
:-)

---

Johnmen   (2007-09-25 17:40:00) [2]

> LogicError   (25.09.07 14:51) [7]

Чё-то не работает. Что бы это могло быть?

---

LogicError   (2007-09-25 14:51:00) [3]

DM.Users.DisableControls;
try
  SafePlase:=DM.Users.GetBookmark;
  try
    DM.Providers.DisableControls;
    try
      for i:=0 to ContactGrid.SelectedRows.Count-1 do
      begin
        DM.Users.Bookmark:=ContactGrid.SelectedRows.Items[i];
        if DM.Providers.Locate('Name',DM.Users['Provider'],[loCaseInsensitive]) then
          putToStack;
      end;
    finally
      DM.Providers.EnableControls;
    end;
    DM.Users.GotoBookmark(SafePlase); 
  finally
    DM.Users.FreeBookmark(SafePlase);
  end;
finally
  DM.Users.EnableControls;
end;

---

clickmaker   (2007-09-25 12:51:00) [4]

да в хелпе даже пример есть

The following example copies the selected rows in a db grid to a list box.

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j: Integer;
 s: string;
begin
 if DBGrid1.SelectedRows.Count>0 then
   with DBGrid1.DataSource.DataSet do
     for i:=0 to DBGrid1.SelectedRows.Count-1 do
     begin
       GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
       for j := 0 to FieldCount-1 do
       begin

         if (j>0) then s:=s+', ';
         s:=s+Fields[j].AsString;
       end;
       Listbox1.Items.Add(s);
       s:= '';
     end;
end;

---

Desdechado   (2007-09-25 12:44:00) [5]

Он тебе медвежью услугу сделал.

---

АндрейК   (2007-09-25 05:21:00) [6]

Slym! Спасибо! С твоей помощью получилось!

---

Slym   (2007-09-24 14:11:00) [7]

 DM.Users.DisableControls;
 try
   SafePlase:=DM.Users.GetBookmark;
   try
     DM.Providers.DisableControls;
     try
       for i:=0 to ContactGrid.SelectedRows.Count-1 do
       begin
         DM.Users.Bookmark:=ContactGrid.SelectedRows.Items[i];
         if DM.Providers.Locate('Name',DM.Users['Provider'],[loCaseInsensitive]) then
           putToStack;
       end;
     finally
       DM.Providers.EnableControls;
     end;
   finally
     DM.Users.GotoBookmark(SafePlase);
     DM.Users.FreeBookmark(SafePlase);
   end;
 finally
   DM.Users.EnableControls;
 end;


---

Ega23   (2007-09-24 14:08:00) [8]

> SelectedRows


плюс к этому DBGrid.Options - dgMultiSelect := True;

---

Desdechado   (2007-09-24 14:03:00) [9]

SelectedRows

---

Наверх