关于listview,请问这段代码有什么问题，listview里面没有数据显示出来

Question

procedure Tmainform.FormShow(Sender: TObject);
var
   listitem : Tlistitem;
begin
  adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=login2;Persist Security Info=True;User ID=login2;Initial Catalog=book;Data Source=.';
  adoconnection1.Open;
  adoquery1.connection:=adoconnection1;
  adoquery1.SQL.Clear;
  adoquery1.sql.add('select * from company');
  adoquery1.Open;
  while adoquery1.eof=false do
    begin
      listitem:=listview1.items.add;
      listitem.caption:=adoquery1.Fields[0].AsString;
      listitem.subitems.add(adoquery1.Fields[1].AsString);
      adoquery1.MoveBy(1);
   end;
end;数据库连接是没问题的，就是显示不了？表company的结构是：id      name
1       ****
2       ****
....

Answer 1

var
   listitem : Tlistitem;
begin
  adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Password=login2;Persist Security Info=True;User ID=login2;Initial Catalog=book;Data Source=.';
  adoconnection1.Open;
  adoquery1.connection:=adoconnection1;
  adoquery1.SQL.Clear;
  adoquery1.sql.add('select * from company');
  adoquery1.Open;
  while not adoquery1.eof do
    begin
      listitem:=listview1.items.add;
      listitem.caption:=adoquery1.Fields[0].AsString;
      listitem.subitems.add(adoquery1.Fields[1].AsString);
      adoquery1.next;
   end;
end;

Answer 2

ListView1.ViewStyle:=  vsReport

Answer 3

已经按照cdsgajxlp(起名很难)的方法改了，也把ViewStyle设为vsReport，但listview里面还是没有数据显示

Answer 4

可能还没有添加列吧～～你点击属性Columns添加列吧～～