Question

delphi中如何使用combobox选择表

我用的是 ADOTable,ADOConnection,DataSource,DBGrid与Access数据库相连，连接已做好。库中有boystudents,girlstudents这2个表，想用combobox选择DBGrid中显示的表（2个表中的字段不用考虑），应该怎么写代码？
我是新手，请大家多多指教！谢谢！
例如：
combobox的Items属性里我加了一个男生表和女生表。当选者男生表的时候，ADOTable.tablename应该为boystudents；选者女生表的时候，ADOTable.tablename应该为girlstudents。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
SL: TStrings;
index: Integer;
begin
ComboBox1.Clear ;
ComboBox1.Style := csDropDownList ;
SL := TStringList.Create;
try
ADOConnection1.GetTableNames(SL, False);
for index := 0 to (SL.Count - 1) do
begin
ComboBox1.Items.Add(SL[index]);
end;
finally
SL.Free;
end;
end;
然后在ComboBox1的OnChange事件中写你连接的表即可