Как в Delphi реализовать связь многие-ко-многим

[Аватар]

Я бы по индексу колонки не ориентировался - юзер может переместить колонку. А имя поля в этой колонке ему слабо поменять

[edsjeka]

Сообщение от Аватар

Я бы по индексу колонки не ориентировался - юзер может переместить колонку. А имя поля в этой колонке ему слабо поменять

DBGrid1.SelectedField.AsString - это получается значение выбранного поля, а как тогда вывести имя выбранного поля?

[Iron Monk]

Сообщение от edsjeka

DBGrid1.SelectedField.AsString - это получается значение выбранного поля, а как тогда вывести имя выбранного поля?

DBGrid1.SelectedField.FieldName;

[edsjeka]

Спасибо, эта часть получилась.

Теперь вопрос, как заполнить CheckListBox1 всеми записями столбца Rabota из таблицы SprRabot?

[Iron Monk]

   
CheckListBox1.Clear;
   with  DataSource1.DataSet do
   begin
   First;
     while not Eof do
     begin
     CheckListBox1.AddItem(FieldByName('Rabota').AsString, nil);
     Next;
     end;
    end;

[Dvoishnik]

Сообщение от edsjeka

Я не могу понять у какого объекта мне нужно установить даблклик. У DBGrid.Columns событие только PopupMenu, у поля ADOTable тоже нет события DoubleClick. Не пойму как мне указать что я кликнул по какой-то ячейке.

просто на БДгрид событие вешаете. а в зависимости от выбранного поля работаете.

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
if ADotable1.FieldByName('имя поля').AsVariant = что_то_там then
Begin
тут выполняйте что хотите
end;
end;