DataSource и ComboBox

[Dotha]

Подскажите пожалуйста в чем ошибка.
Хочу поменять значение DataSet у DataSource1 с помощью ComboBox1
делаю так но ничего не выходит.

DataSource1.DataSet:= ComboBox1.Items[ComboBox1.ItemIndex];

[mihali4]

Ошибка в том, что свойство DataSet не есть строка...
Вариант решения - использовать конструкцию CASE .. OF

[Dotha]

:-) а подскажите как правильно сделать

[mihali4]

Так вроде уже...
По событию ComboBox1Change при помощи CASE ComboBox1.ItemIndex OF назначаем DataSource1.DataSet.
Например:

CASE ComboBox1.ItemIndex OF
0: DataSource1.DataSet:= Table1;
1: DataSource1.DataSet:= Table2;
...
end;

[Dotha]

Большое спасибо за ответ !
Он мне очень помог.

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

Так вроде уже...
По событию ComboBox1Change при помощи CASE ComboBox1.ItemIndex OF назначаем DataSource1.DataSet.
Например:

CASE ComboBox1.ItemIndex OF
0: DataSource1.DataSet:= Table1;
1: DataSource1.DataSet:= Table2;
...
end;

А как можно переключать с модальной формы если я делаю так

case ComboBox1.ItemIndex of
  0: DataSource1.DataSet:= Form1.ADOTable1;
  1: DataSource1.DataSet:= Form1.ADOTable2;
  end;

то выходит ошибка Access violation at address 0058EECD in module 'Project1' . Read of address 0000009D.
Что можно сделать ?

[mihali4]

А сам обработчик в событиях какой формы?
А Form1 на момент обработки открыта?

[Dotha]

DBGrid , ADOConnection, ADOTable1, ADOTable2 на Form1.
ComboBox1, DataSource1 на Form2.

Form1 на момент обработки открыта.

ComboBox1 переключает ADOTable1 и ADOTable2 но выходит окошко с ошибкой

Access violation at address 0058EECD in module 'Project1' . Read of address 0000009D.

[BARNEY]

case ComboBox1.ItemIndex of
  0:begin
TForm1.create(self); // создаём если нет
Form1.show; // показываем если скрыто      
DataSource1.DataSet:= Form1.ADOTable1;
     end; 

  1: begin
TForm1.create(self); // создаём если нет
Form1.show; // показываем если скрыто    
DataSource1.DataSet:= Form1.ADOTable2;
end;
end;

а в каком месте вылетает? по f7 пройдись

[Dotha]

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

case ComboBox1.ItemIndex of
  0:begin
TForm1.create(self); // создаём если нет
Form1.show; // показываем если скрыто      
DataSource1.DataSet:= Form1.ADOTable1;
     end; 

  1: begin
TForm1.create(self); // создаём если нет
Form1.show; // показываем если скрыто    
DataSource1.DataSet:= Form1.ADOTable2;
end;
end;

а в каком месте вылетает? по f7 пройдись

Так ошибка не выходит но и не происходит ничего

[Dotha]

можете объяснить что обозначает это

TForm1.create(self);