如何撰寫程式將資料轉到EXCEL後,做小計的功能 |
尚未結案
|
sangya
一般會員 發表:21 回覆:46 積分:13 註冊:2002-04-15 發送簡訊給我 |
|
likush
高階會員 發表:5 回覆:235 積分:103 註冊:2002-10-08 發送簡訊給我 |
|
sangya
一般會員 發表:21 回覆:46 積分:13 註冊:2002-04-15 發送簡訊給我 |
|
likush
高階會員 發表:5 回覆:235 積分:103 註冊:2002-10-08 發送簡訊給我 |
個人感想,其實以上述作法亦可以作到小計的功能,
您可以先判斷item欄位的值,再用程式去作插入的動作
Table1.First;
vStr := Table1.FieldValues['Item'];
While Not Table1.Eof Do
Begin
If Table1.FieldValues['Item'] <> vStr Then
Begin
MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1] := '=SUM(A2:A' I ')';
Inc(I);
End;
MyExcel.WorkBooks[1].WorkSheets[1].Cells[4,1] := Table1.FieldValues['Item'];
vStr := Table1.FieldValues['Item'];
Inc(I);
Table1.Next;
End;
上述作法您亦可視您需求加以變更。有錯,請指正。 =========================
讀萬卷書~不如來K.TOP走一遭
=========================
|
sangya
一般會員 發表:21 回覆:46 積分:13 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |