本文整理自网络,侵删。
listview的viewstyle属性设置为vsReportgridline属性设置为true双击listview,添加列,有多少个字段显示就添加几个列
举例代码listview1.clear;with adoquery1 dobegin Sql.text := 'Select * from table1'; Open ; while not eof do begin with listview1.items.add do begin caption := fieldbyName('field1').asstring; subitems.add(fieldbyName('field2').asstring); subitems.add(fieldbyName('field3').asstring); subitems.add... end; Next; end;end;
相关阅读 >>
Delphi winapi: isiconic、iszoomed - 分别判断窗口是否已最小化、最大化
更多相关阅读请进入《Delphi》频道 >>