关于listview的一个问题

Question

数据库结构
表：danwei
bh，bumenvar
vitem: TListItem;
begin
 with adoquery2 do
 begin
  Active := False;
  adoquery2.SQL.Text:='select bumen from danwei order by bh  ';
  Active := True;
 RzListView1.Items.BeginUpdate;
  RzListView1.Items.Clear;
  while not Eof do
  begin
   vItem := RzListView1.Items.Add;
   vItem.Caption :=adoquery2.FieldByName('bumen').AsString;
  vItem.ImageIndex:=1;
   adoquery2.Next;
 end;
 Active := False;
 RzListView1.Items.EndUpdate;
 end;
用了上面的代码读出的listview的显示效果是这样的：
      技术部   工程部
把viewStyle设成vsReport了,没有显示，求解

Answer 1

给你的ListView至少添加一个Columns。

Answer 2

与数据库无关，当一个listview没有columns的时候，按vsreport方式显示时是看不到内容的。