Question

delphi 用listview显示数据表中的数据

用listview读取数据表中的信息时，SQL server中ID自动编号不能显示，怎么解决。。

Answer 1

1、ListView控件的ViewStyle属性设置为vsReport
2、为ListView控件添加列名-->设置Columns属性
3、开始编程
procedure TForm1.Button1Click(Sender: TObject);
var
tmpItem: TListItem;
begin
while not ADOQuery1.Eof do
begin
tmpItem := ListView1.Items.Add;
tmpItem.Caption := ADOQuery1.FieldByName('xx').AsString;
tmpItem.SubItems[0] := ADOQuery1.FieldByName('xx').AsString;
end;
end;

这样可以取得系统图标：
procedure GetFileIcon(FileName:string;Flag:integer;Icon:TIcon);
var
ImageList: TImageList;
FileInfo: TSHFILEINFO;
hnd:THandle;
begin
Flag := SHGFI_SYSICONINDEX or Flag;
FillChar(FileInfo, SizeOf(FileInfo), #0);
ImageList:= TImageList.Create(nil);
imagelist.ShareImages := true; //用了它才能用Free;
Hnd:=SHGetFileInfo(PChar(FileName), 0, FileInfo,
SizeOf(FileInfo), Flag);

ImageList.Handle:=Hnd;
ImageList.GetIcon(FileInfo.iIcon,Icon);
ImageList.Free;
end;
调用：
var
Icon: TIcon;
Flags:integer;
begin
Icon:= TIcon.Create;
Flags:= SHGFI_SMALLICON;
GetFileIcon('你要取名标的文件名',Flags,Icon);
//你的代码了,要如何处理Icon
Icon.Free;
end;

追问

除了自动编号以外，其余的都能正常显示。。。是想解决自动编号的显示问题

追答

list控件显示的数据好像不能直接导出到excel，你可以做一个查询，然后直接导出到Excel(好像是用‘另存为’）,如果你要保存在已有的Excel文档，用复制粘贴好了，也挺方便的。

追问

没有要导出数据，只是将数据表中的信息显示在listview中，数据表中的ID（自动编号）字段不能显示