dataSet2Excel

最新推荐文章于 2020-06-25 18:41:40 发布

weixin_30487317

最新推荐文章于 2020-06-25 18:41:40 发布

阅读量172

点赞数

原文链接：http://www.cnblogs.com/froster/archive/2005/09/02/228582.html

版权

function DS2XLS(DS:TDataSet;FS:string):Boolean;
var
i,j:Integer;
sl:TStringList;
str:String;
begin
try
sl:=TStringList.Create();
try
DS.First;

sl.Add('<html> <table width="100%" border="1">');

      for i:=0 to DS.FieldCount-1 do
          str:=str+'<td>'+DS.Fields[i].DisplayName+'</td>';
      sl.Add(str);

      for j:=0 to DS.RecordCount-1 do
      begin
        str:='<tr>';
        for i:=0 to DS.FieldCount-1 do
        if varisnull(DS.Fields[i].Value) then str:=str+'<td>'+'</td>' else str:=str+'<td>'+string(DS.Fields[i].Value)+'</td>';
        str:=str+'</tr>';
        sl.Add(str);
        DS.Next;
      end;
      sl.Add('</table></html>');

      sl.SaveToFile(FS);
      Result:=True;
    except
      REsult:=False;
    end;
finally
    sl.Free;
end;
end;

引自http://www.cnblogs.com/qufo/archive/2005/04/05/132374.html

转载于:https://www.cnblogs.com/froster/archive/2005/09/02/228582.html

weixin_30487317

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
dataSet2Excel

function DS2XLS(DS:TDataSet;FS:string):Boolean; var i,j:Integer; sl:TStringList; str:String; begin try sl:=TStringList.Create(); try DS.First; sl.Add('<html> <tabl...
复制链接

扫一扫