P
polter
Существует база данных с 6-ю таблицами. В 1-ой таблице список остальных 5-ти. В DBLookUpCombobox я загружаю 1-ую таблицу (table1). Нужно чтобы при выборе из списка в DBLookUpCombobox определенного пункта с названием таблицы в DBGrid отображалось содержимое той таблицы, название которой я выбрал в списке DBLookUpCombobox.
Например, в DBLookUpCombobox 5 названий - table1, table2, table3, table4, table5. Я выбираю из этого списка table2и в DBGrid отображается содержимое table2, выбираю из списка table4 и в DBGrid отображается содержимое table4.
вот код, который работает, но при Button.Click
мне нада тоже самое, но только через выбор пункта в DBLookUpCombobox.
говорили, что через KeyValue нужно, но как конкретно?
Например, в DBLookUpCombobox 5 названий - table1, table2, table3, table4, table5. Я выбираю из этого списка table2и в DBGrid отображается содержимое table2, выбираю из списка table4 и в DBGrid отображается содержимое table4.
вот код, который работает, но при Button.Click
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if DBLookUpCombobox1.KeyValue= 1 then begin
ADOTable2.Connection:= ADOConnection1;
DataSource1.DataSet:= ADOTable2;
DBGrid1.DataSource:= DataSource1;
ADOTable2.TableName:= 'table2';
ADOTable2.Active:= True;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if DBLookUpCombobox1.KeyValue= 4 then begin
ADOTable4.Connection:= ADOConnection1;
DataSource1.DataSet:= ADOTable4;
DBGrid1.DataSource:= DataSource1;
ADOTable4.TableName:= 'table2';
ADOTable4.Active:= True;
end;
end;
говорили, что через KeyValue нужно, но как конкретно?