得到adoquery后,遍历,填充到Listview,不能直接绑定var item:TlistItem; begin while not ADOQuery1.Eof do begin item := ListView1.Items.Add; item.Caption := ADOQuery1.FieldByName('xx').AsString; item.SubItems.Add(ADOQuery1.FieldByName('xx').AsString); ADOQuery1.Next; end; end;
var D: TDataSet; begin D := ADoTable1; D.Open; D.First; while not D.Eof do begin with ListView1.Items.Add do begin Caption := D.Fields[0].AsString; with SubItems do begin Add(D.Fields[1].AsString); Add(D.Fields[2].AsString) end end; D.Next end; end;
item:TlistItem;
begin
while not ADOQuery1.Eof do
begin
item := ListView1.Items.Add;
item.Caption := ADOQuery1.FieldByName('xx').AsString;
item.SubItems.Add(ADOQuery1.FieldByName('xx').AsString);
ADOQuery1.Next;
end;
end;
D: TDataSet;
begin
D := ADoTable1;
D.Open; D.First;
while not D.Eof do
begin
with ListView1.Items.Add do
begin
Caption := D.Fields[0].AsString;
with SubItems do
begin
Add(D.Fields[1].AsString);
Add(D.Fields[2].AsString)
end
end;
D.Next
end;
end;