帮帮忙，一个combobox的小问题

Question

with Query1 do
  begin
    First;
    for i:=1 to RecordCount do
    begin
      ComboBox1.Items.Add(FieldByName('xxxx').AsString);
      Next;
    end;
  end;

Answer 1

用session完全可以实现你的意思：在combobox1中存放的是数据库别名，在listbox1中是所选泽的数据库中的表名称，在combobox2中是字段名称。procedure TForm1.FormCreate(Sender: TObject);
begin
session1.GetAliasNames(combobox1.Items);
end;procedure TForm1.ComboBox1Click(Sender: TObject);
begin
session1.GetTableNames(combobox1.Text,'',true,true,listbox1.Items);
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
session1.GetFieldNames(combobox1.Text,listbox1.Items.Strings[listbox1.itemindex],combobox2.Items);
end;end.