双击listview控件(这里为listview1),为listview1加入几个字段,如name1,name2 通过查询得到结果集后,为listview1加入数据时,编写代码: while not Query.Eof do begin with ListView1.Items.Add do begin SubItems.Add(Query.FieldByName('Id').AsString);//对应name1 SubItems.Add(Query.FieldByName('Name').AsString);//对应name2 end; Query.Next; end; 这样就加入了数据
定义一个Tlistitem变量 listitem :Tlistitem wiht listview do begin listitem :=items.add; listitem.caption :=''; listitem.substring.add :='' ................. end
通过查询得到结果集后,为listview1加入数据时,编写代码:
while not Query.Eof do
begin
with ListView1.Items.Add do
begin
SubItems.Add(Query.FieldByName('Id').AsString);//对应name1
SubItems.Add(Query.FieldByName('Name').AsString);//对应name2 end;
Query.Next;
end;
这样就加入了数据
listitem :Tlistitem
wiht listview do
begin
listitem :=items.add;
listitem.caption :='';
listitem.substring.add :=''
.................
end
listitem.SubItems.Add('')
listview.items.item[0].subitems.insert(0,' ');