Подчинение

[vovk]

ваши сообщения такие иформативные, что я просто теряюсь с чего начать. Учится читать мысли, или угадывать желания.
ну сами посудите, что я могу подсказать зная что,

Сообщение от Власов А.С.

А неработает

?
Ошибка в 15 строке?

вообще из того что я знаю это только что используется TDBlookupcombobox ни компонентов которыми пользуетесь для доступа, ни названия полей.. да ничего не знаю.

ЗЫ всё таки попробую телепатнуть

вы просто скопировали это

DBLookupComboBox.DataSource.Dataset.FieldByname('{название столбца куда нужно добавить код}').AsVariant:= 
DBLookupComboBox.ListSource.Dataset.FieldByname('{название столбца где содержится код}').AsVariant;

и всё?
тут DBLookupComboBox а у вас может имя компонента на форме DBLookupComboBox1 или както по другому.

[Власов А.С.]

procedure TForm2.DataSource3DataChange(Sender : TObject; Field: TField);
begin
if (Field<>nil) and (Field.FieldName=DBLookupComboBox3. DataField) then
DBLookupComboBox3.DataSource.Datase t.FieldByname('{Наименвоание КБК}').AsVariant:=
DBLookupComboBox3.ListSource.Datase t.FieldByname('{Наименование}').AsV ariant;
end;
Ошибки не кидает но и невставляет в базу подключение к базе через АДО

[vovk]

фигурные скобки не нужны, это я так для наглядности


ЗЫ оформляйте код в сообщениях тегом.
Выделяете код, и жмёте решетку на панельке окна редактирования

[Власов А.С.]

Фигурные скобки убрал но несработало

[Власов А.С.]

Где не так непойму

[vovk]

погодите у вас данные должны добавлятся чтоли в 1 колонку и Наименование, и Наименвоание КБК ? если всё в 1 колонку тогда данные можно добавить перед сохранением, но извращение какоето выходит..

Ладно раз ничего показывать не хотите, подождите немножко, мин через 15 освобожусь. Накидаю пример быстро там смотрите что у вас не так.

[Власов А.С.]

Нет нет данные из поля "Наименование" одна таблица в акссесе в поле "Наименование КБК" другая таблица

[Власов А.С.]

Мы наверное непоймем друг друга. Мож кинуть формы и понаглядности объснить?

[vovk]

Вот... ну там вроде всё понятно..

[Власов А.С.]

Спасибо, Так. Завтра буду со своим примером разбираться вроде так но у меня неработает.