Código Delphi [-] With IBTable1 do begin Open; // First; While not Eof do begin DbGrid1.Columns[0].PickList.Add(IBTable1.FieldByName('campo').Asstring); Next; End; End;
With IBTable1 do begin Open; // First; While not Eof do begin DbGrid1.Columns[0].PickList.Add(IBTable1.FieldByName('campo').Asstring); Next; End; End;