procedure TForm1.TabControl1Change(Sender: TObject);
begin
if TabControl1.TabIndex = 0 then MyTable1.TableName := 'table1';
if TabControl1.TabIndex = 1 then MyTable1.TableName := 'table2';
DBGrid1.Refresh;
end;
Delphi 2010 & MySQL
на форме помещена панель с вкладками, на которой находится таблица(DBGrid), так же на форме компоненты для связи с БД MySQL(MyConnect, MyTable, MyDataSource). Мне нужно чтобы при выборе нужной вкладки отображалась соответствующая таблица!
Подскажите плиз как мне это осуществить!!!
ну и смотри событие OnTabChange кажется.
Код:
вот такой примерно код у меня получился. запускаю, он мне отображает ту таблицу которая указана в свойствах MyTable.TableName, переключаю вкладку и все, таблица становится пустая!
попробовал добавить строчку "MyDataSource1.DataSet.Refresh;", то он мне при переключении вкладки выдает ошибку и пишет
"First chance exception at $7C812AEB. Exception class EDatabaseError with message 'MyTable1: Cannot perform this operation on a closed dataset'. Process Project1.exe (3784)"! что я не так сделал? и как мне это исправить чтоб работало?
Код:
MyTable1.Active := true;
makbeth, большое спасибо! помогло!