本文整理自网络,侵删。
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 get_hd_serial() 获得磁盘驱动器序列号
关于公历与农历换算和时间处理的单元 calendar.pas
Delphi 在状态条中显示进度条,webbrowser示例
更多相关阅读请进入《Delphi》频道 >>