Question

Delphi中数据库中内容在不同的ComboBox中显示

我的界面上有几个ComboBox，在数据库中有Time，Province等几个表。要实现的是在ComboBox1的下拉表中显示Province表中的Provinceno的内容，并将选中值放在combobox1.text中，在ComboBox5的下拉表中显示Time表中的TimeSum的内容，并将选中值放在combobox5.text中。
但是我在FormShow中写下了
procedure TForm9.FormShow(Sender: TObject);
begin
combobox1.Items.Clear;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select provinceno from province');
adoquery1.Open;
with adoquery1 do
begin
while not eof do
begin
combobox1.Items.Add(fieldbyname('provinceno').AsString);
next;
end;
end;
end;
在ComboBox1中实现了我想要的功能，但是在再添加语句实现Combobox5功能时，就出现错误。我还试着在ComboBox的OnChange下添加语句，但是运行时ComboBox5的下拉框中却没有内容。代码是
combobox5.Items.Clear;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select timesum from time');
adoquery1.Open;
with adoquery1 do
begin
while not eof do
begin
combobox5.Items.Add(fieldbyname('sumtime').AsString);
next;
end;
end;
end;
还请大家帮忙

Answer 1

combobox5.Items.Clear;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select timesum from [time]');//这里把time改为[time]
adoquery1.Open;
with adoquery1 do
begin
while not eof do
begin
combobox5.Items.Add(fieldbyname('sumtime').AsString);
next;
end;
end;
end