資料套入word 表格的問題 |
尚未結案
|
saningamour
一般會員 發表:18 回覆:17 積分:7 註冊:2003-11-17 發送簡訊給我 |
請教一下各位前輩
小弟目前有一個StringGrid內的資料想要套進word內我已經是先設計好的表格
小弟是用
for j:=1 to StringGrid1.RowCount do
begin
for k:=1 to StringGrid1.ColCount do
begin
WordDocument1.Tables.Item(i).Cell(j,k).Range.Text:=StringGrid1.cells[k-1,j-1];
end;
end;
的方式把資料寫入
可是目前有個問題困擾小弟很久
就是StringGrid的資料中,有一欄的資料很長
就是可能有四個欄位
==
地址 姓名 電話 備註
台北市 XX XX 備註一
AA AA
BB BB
台北縣 CC CC 備註二
==
我所希望的格式是如上
備註該欄是跟隨著地址這一欄出現的
可是會因為備註過長
所以會把整列拉很長
可能會變成如下
==
台北市 XX XX 備
註
一
AA AA
==
這樣整個畫面就很醜
可否又辦法弄成類似Excel中的合併儲存格的方法呢?
如下
==
台北市 XX XX 備
AA AA 註
BB BB 一
台北縣 CC CC 備註二
==
先謝謝各位前輩的指教喔
|
saningamour
一般會員 發表:18 回覆:17 積分:7 註冊:2003-11-17 發送簡訊給我 |
我已經把問題解決了
既然沒人回答
那我自己把他結案好了
StringGrid內的資料如下(資料已經沒在資料庫內了)
===
地址 姓名 電話 備註
台北市 XX XX 備註一
AA AA
BB BB
台北縣 CC CC 備註二
DD DD
===
其實我的方法很笨
(就是把同個地址的資料算在同一格內
如上面只會用去兩列表格 而不是之前方法的五列表格)
就是先設一個變數去算出來共有幾個地址
(當地址欄 <>'' 該值就加一)
然後地址欄跟備註欄先套入表格
至於姓名欄跟電話欄的部分
則是另外設一個變數去算出一個地址共有幾筆資料
(若地址欄='' 該變數就加上該欄的姓名欄 並且用#13隔開
當讀到下一筆的地址欄<>''時 把數值寫入word內
並把數值歸零)
方法大概是這樣
滿笨的一個辦法
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |