一个DataSet to Excel的函数
摘要：
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(' '); for i:=0 to... 阅读全文
posted @ 2005-04-05 11:06 qufo 阅读(489) 评论(0) 推荐(0) 编辑
