为什么程序运行时得到了combobox下的items里的内容,但却不能选择它??
代码如下:还要增加什么吗?
adoconnection1:=Tadoconnection.Create(Self);
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db\机票预定系统.mdb;Persist Security Info=False';
adoconnection1.LoginPrompt:=false;
adoquery2:=tadoquery.Create(Self);
adoquery2.Connection:=adoconnection1;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct 出发城市 from 查询表');
adoquery2.Open;
adoquery2.First;
//combobox2.items.Add('请选择');
while not adoquery2.eof do begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
adoquery2.Next;
end;
代码如下:还要增加什么吗?
adoconnection1:=Tadoconnection.Create(Self);
adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db\机票预定系统.mdb;Persist Security Info=False';
adoconnection1.LoginPrompt:=false;
adoquery2:=tadoquery.Create(Self);
adoquery2.Connection:=adoconnection1;
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select distinct 出发城市 from 查询表');
adoquery2.Open;
adoquery2.First;
//combobox2.items.Add('请选择');
while not adoquery2.eof do begin
ComboBox2.Items.add(adoquery2.Fieldbyname('出发城市').AsString);
adoquery2.Next;
end;
XXX := ComboBox2.text;即可
或加上楼上的这句都可以.