У меня вот такой вопрос: на форме есть DBGrid, DataSource, Query и ComboBox
предположим я отобрал из моей БД некторые данные — они скажем отобразились в DBGrid...
вопрос такой — как занести в ComboBox данные из первого столбца DBGrid?
Знаю еще один компонент DBComboBox — может работать с ним — всмысле затаранить туда данные из БД значительно проще?

Помогите, пожалуйста!

Здравствуйте, Svatozar, Вы писали:

S>У меня вот такой вопрос: на форме есть DBGrid, DataSource, Query и ComboBox
S>предположим я отобрал из моей БД некторые данные — они скажем отобразились в DBGrid...
S>вопрос такой — как занести в ComboBox данные из первого столбца DBGrid?

procedure TForm1.FillComboBox;
var
    BM: TBookmark;
    FieldVal: Variant;
begin
    BM := Query1.GetBookmark;
    Query1.DisableControls;
    try
        Query1.First;
        while not Query1.EOF do
        begin
            FieldVal := Query1[DBGrid1.Columns[0].FieldName];
            if VarIsNull(FieldVal) or VarIsEmpty(FieldVal) then
                ComboBox1.Items.Add('NULL')
            else
                ComboBox1.Items.Add(VarToStr(FieldVal));
            Query1.Next;
        end;
    finally
        Query1.GotoBookmark(BM);
        Query1.FreeBookmark(BM);
        Query1.EnableControls;
    end;
end;

S>Знаю еще один компонент DBComboBox — может работать с ним — всмысле затаранить туда данные из БД значительно проще?
то же самое... DBComboBox позволяет при редактировании выбрать значение из списка для установки его в указаное поле...
S>Помогите, пожалуйста!
да легко... см выше