DBGrideRésolu

Question

Salut à tous !
S'il vous plais, comment faire remplir un PickList d'une Columns de DBGrid à partir d'une base de donnée en delphi.
C'est urgent ! Merci.

cs_cantador · Accepted Answer

houps..

procedure TForm1.Button7Click(Sender: TObject);
var
  i: integer;
begin
  Query2.Close;
  Query2.Open;
  Query2.First;
  for i := 0 to dbgrid1.Columns.Count - 1 do
    if dbgrid1.Columns.Items[i].Title.Caption = 'LastName' then
      while not Query2.Eof do
      begin
        DBGrid1.Columns.Items[i].PickList.Add('Query2Champ1.text');
        Next;
      end;
end;

cantador

cs_cantador · Answer

tant pis, tu prendras l'avion suivant !


procedure TForm1.Button7Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to dbgrid1.Columns.Count - 1 do
    if dbgrid1.Columns.Items[i].Title.Caption = 'LastName' then
      while not Query1.Eof do
      begin
        DBGrid1.Columns.Items[1].PickList.Add('Query2Champ1.text');
        Next;
      end;
end;

cantador

DBGride

2 réponses

Votre réponse