var
Titem:Tlistitem;       
begin
ListView1.Items.Clear;
with adoquery2 do
begin
close;
sql.Clear;
sql.Add('select a.spmc,a.jg,b.sl,b.bm from kcxs a,kc.b where bm='''+trim(edit8.text)+'''');//我查询2张表,然后根据一张表里的字段跟EDIT判断,最后将数据赋给Listview.这样写对不?
Open;
ListView1.Items.Clear;
while not eof do
begin
Titem:=ListView1.Items.add;
Titem.Caption:=FieldByName('spmc').Value;
Titem.SubItems.Add(FieldByName('jg').Value);
Titem.SubItems.Add(FieldByName('sl').Value);
Titem.SubItems.Add(FieldByName('bm').Value);
................
next;
end;
end;
end;