listbox中实现不了，combobox却能实现。(40分)

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
ADOTable1.edit;
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQl.Add('insert into 表1 (xiaoshou,kehu,xingbie,nianling) select xiaoshou,kehu,xingbie,nianling from 表2,表3');
adoquery1.SQl.Add('where kehu='''+listbox1.Items.text+'''');
~~~~~~~~~~~~~~~~~~~~
adoquery1.SQl.Add('and xiaoshou='''+combobox2.Text+'''');
adoquery1.Prepared:=true;
adoquery1.ExecSQL;
adotable1.Close;
adotable1.open;
adotable1.Last;
end;

画线部分，改为combobox1.text 就可以啊。到底怎么用LISTBOX实现啊。

adoquery1.SQl.Add('where kehu='''+listbox1.Items.text+'''');
改为
adoquery1.SQl.Add('where kehu='''+listbox1.text+'''');

ListBox1.Items.Strings[ListBox1.ItemIndex]
ListBox1.Items[ListBox1.ItemIndex]

libin06的是对的！

楼上的楼上说得是对的。

多人接受答案了。