Всем доброго времени суток!
Помогите, пожалуйста.
На Форм1 есть Дбгрид1 и ДБгрид2. В ДБгрид2 встроен ДБКомбобокс, который берет данные из ДБГрид1.
вот код, который у меня сейчас... НО в итоге получается вот так (см.вложения). В комбобокс данные попадают только после нажатия на строку в Дбгрид1.
Код:
procedure TForm1.DBComboBox1DropDown(Sender: TObject);
var
i: integer;
begin
i := 0;
while i < DBGrid1.DataSource.DataSet.RecordCount do
begin
DBGrid1.Columns[0].PickList.Add(DBGrid1.Fields[0].AsVariant);
inc(i);
end;
DBComboBox1.Items.Assign(DBGrid1.Columns[0].PickList);
end;
Админ: 3-х дневный бан за теги.