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

множественный выбор в DBGrid   Найти похожие ветки 

← →
АндрейК   (2007-09-24 13:48) [0]

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

---

← →
Desdechado ©   (2007-09-24 14:03) [1]

SelectedRows

---

← →
Ega23 ©   (2007-09-24 14:08) [2]

> SelectedRows


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

---

← →
Slym ©   (2007-09-24 14:11) [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;
   finally
     DM.Users.GotoBookmark(SafePlase);
     DM.Users.FreeBookmark(SafePlase);
   end;
 finally
   DM.Users.EnableControls;
 end;


---

← →
АндрейК   (2007-09-25 05:21) [4]

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

---

← →
Desdechado ©   (2007-09-25 12:44) [5]

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

---

← →
clickmaker ©   (2007-09-25 12:51) [6]

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

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;

---

← →
LogicError   (2007-09-25 14:51) [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;
    DM.Users.GotoBookmark(SafePlase);  
  finally
    DM.Users.FreeBookmark(SafePlase);
  end;
finally
  DM.Users.EnableControls;
end;

---

← →
Johnmen ©   (2007-09-25 17:40) [8]

> LogicError   (25.09.07 14:51) [7]

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

---

← →
Германн ©   (2007-09-25 17:46) [9]

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

LogicError
:-)

---

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

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



Память: 0.47 MB
Время: 0.017 c