請問如何使用visual report 轉execl 檔

發文回覆瀏覽次數：2110

推到 Plurk!

推到 Facebook!

請問如何使用visual report 轉execl 檔

答題得分者是：chris681016

icoandblue
一般會員

發表：1
回覆：2
積分：0
註冊：2008-05-19

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-07-04 10:31:32

IP:203.73.xxx.xxx 訂閱

最近，在工作上遇到問題，公司是用visual report 7 做報表，現在要把做好的報表轉成execl檔，可是，visual report 我不太熟，所以，可以請教一下會用的人，請給我一點方向，謝謝....

chris681016
中階會員

發表：69
回覆：122
積分：98
註冊：2006-10-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2008-07-07 11:05:43

IP:211.75.xxx.xxx 訂閱

VisualReport1.FromPage:=1;
VisualReport1.toPage:=VisualReport1.TotalPages;
SaveDialog1.FilterIndex:=6;
if SaveDialog1.Execute then
begin
VisualReport1.SaveDataToText(SaveDialog1.FileName,#9,true);
end

SaveDialog1.FilterIndex:=6; 拉一個SaveDialog在增加一個.xls檔，看你放在第幾個，可以轉word，excel，txt....等

icoandblue
一般會員

發表：1
回覆：2
積分：0
註冊：2008-05-19

發送簡訊給我

#3 引用回覆回覆

發表時間：2008-07-08 08:42:20

IP:203.73.xxx.xxx 訂閱

謝謝，可以再問一個問題嗎？如果要改變存成execl的時候，抬頭可以改嗎?

chris681016
中階會員

發表：69
回覆：122
積分：98
註冊：2006-10-12

發送簡訊給我

#4 引用回覆回覆

發表時間：2008-07-08 14:45:25

IP:211.75.xxx.xxx 訂閱

no00010002

統一編號

你是說改變「no」變成「編號」這樣嗎?
如果是的話這樣就可以
ADOQuery1.FieldByName('no').DisplayLabel:='編號' ;

icoandblue
一般會員

發表：1
回覆：2
積分：0
註冊：2008-05-19

發送簡訊給我

#5 引用回覆回覆

發表時間：2008-07-08 15:39:24

IP:203.73.xxx.xxx 訂閱

嗯，我了解了謝謝你..

系統時間：2025-01-30 14:07:56

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！