報表存檔之後的欄位問題 |
|
答題得分者是：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
|
發表時間：2005-12-09 11:26:22
IP:211.22.xxx.xxx 未訂閱
系統時間：2024-04-28 16:18:09
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |