報表存檔之後的欄位問題 |
答題得分者是:kgt
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
目前小弟的報表寫好存檔之後
有了欄位 但有了各新問題
就是資料庫的某些欄位字過大
存檔之後 那欄位的字會被切半跳到下一各欄位
導致存好檔案的報表 雜亂無章
是否可加條件 讓存好檔案的報表自動修正欄位跟字串一樣長
或者 加大欄位 不讓字串跳到下一欄位 =======程式碼============
var
F : TextFile;
S : String;
iROW , iCO1 : Integer; begin IF not csTemp.Active Then
exit; savedialog1.InitialDir := ('C:\');
savedialog1.filter := '*.csv';
savedialog1.DefaultExt := 'csv'; IF savedialog1.Execute then
begin AssignFile(F,savedialog1.FileName);
Rewrite(F); s := csTemp.Fieldbyname ('RECID').DisplayLabel ','
csTemp.Fieldbyname ('Serial_Number').DisplayLabel ','
.
.
.
csTemp.Fieldbyname ('EMP_Name').DisplayLabel;
Writeln(F, S);
csTemp.first;
while not csTemp.Eof do
begin s := csTemp.Fieldbyname ('RECID').AsString ','
csTemp.Fieldbyname ('Serial_Number').AsString ','
.
.
.
csTemp.Fieldbyname ('EMP_Name').AsString;
writeln(F, S);
csTemp.next; end;
MessageDlg('Report OK!!',mtCustom, [mbOK],0);
CloseFile(F);
end;
end;
=============結尾====================
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet |
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
|
lovemari
中階會員 發表:134 回覆:224 積分:76 註冊:2005-08-18 發送簡訊給我 |
|
kgt
高階會員 發表:17 回覆:308 積分:165 註冊:2002-03-13 發送簡訊給我 |
hi lovemari日安:
轉成excel的部分,我建議您研究此篇,我用過覺得還不錯.
http://delphi.ktop.com.tw/topic.php?topic_id=62999
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |