不好意思，之前發表的文章還是沒有解決問題，所以再次發問= ="

拜託幫我解答一下= ="弄了很久..

我用的是ｄｅｌｐｈｉ７ 和 內建的ｑｕｉｃｋ ｒｅｐｏｒｔ


請問
（假設ｑｕｅｒｙ１查詢後的資料有五筆）(四個欄位)
（假設ｑｕｅｒｙ２查詢後的資料有兩筆）(三個欄位)
怎麼讓報表得到以下結果

使用地點	最大領用量	平均領用量	使用人員
A	100	50	甲
B	100	50	乙
C	100	50	丙
D	100	50	丁
E	100	50	戊
貯存地點	最大庫存量	平均庫存量
F	100	50
G	100	50

[code delphi]
date3:=DateTimePicker2.Date;
date4:=DateTimePicker3.Date;
with query5 do
begin
close;
sql.Clear;
SQL.Add('Select 使用地點、max(領用數量) as 最大領用量,avg(領用數量) as 平均領用量 、使用人員 from A_save2 ');
sql.Add('where 物品名稱="' dblookupcombobox1.text '" and (日期>=:date3)and (日期<=:date4) group by 使用地點,使用人員 ' );
end;
Query5.Params [0].DataType :=ftdate;
Query5.Params [0].Value :=date3;
Query5.Params [1].DataType :=ftdate;
Query5.Params [1].Value :=date4;
Query5.Active :=true;
date1:=DateTimePicker2.Date;
date2:=DateTimePicker3.Date;
with query6 do
begin
close;
sql.Clear;
SQL.Add('Select 貯存地點、max(庫存數量) as 最大庫存量,avg(庫存數量) as 平均庫存量 from A_save ');
sql.Add('where 物品名稱="' dblookupcombobox1.text '" and (日期>=:date1)and (日期<=:date2) group by 貯存地點 ' );
end;
Query6.Params [0].DataType :=ftdate;
Query6.Params [0].Value :=date1;
Query6.Params [1].DataType :=ftdate;
Query6.Params [1].Value :=date2;
Query6.Active :=true;
end;
[/code]

編輯記錄

怎麼讓報表得到以下結果

使用地點	最大領用量	平均領用量	使用人員
A	100	50	甲
B	100	50	乙
C	100	50	丙
D	100	50	丁
E	100	50	戊
貯存地點	最大庫存量	平均庫存量
F	100	50
G	100	50

你可以將上面資料另寫到一個Table，再由QuickRep印出。

------
What do we live for if not to make life less difficult for each other?

請問是這樣的做法嗎?
那請教一下，如何將query查詢出來的資料輸出= =?

[code delphi]
table1.append;
table1.fieldbyname('欄位1').asstring:='使用地點';
table1.fieldbyname('欄位2').asstring:='最大領用量';
table1.fieldbyname('欄位3').asstring:='平均領用量';
table1.fieldbyname('欄位4').asstring:='使用人員';
table1.post;

table1.append;
(這邊如何輸入query5的多筆資料)
table1.post

table1.append;
table1.fieldbyname('欄位1').asstring:='貯存地點;
table1.fieldbyname('欄位2').asstring:='最大貯存量';
table1.fieldbyname('欄位3').asstring:='平均貯存量';
table1.post;

table1.append;
(這邊如何輸入query6的多筆資料)
table1.post;

[/code]
;
;


===================引 用 christie 文 章===================

怎麼讓報表得到以下結果

使用地點	最大領用量	平均領用量	使用人員
A	100	50	甲
B	100	50	乙
C	100	50	丙
D	100	50	丁
E	100	50	戊
貯存地點	最大庫存量	平均庫存量
F	100	50
G	100	50

你可以將上面資料另寫到一個Table，再由QuickRep印出。

Query5.Active :=true; // 或 Query5.Open

while not Query5.Eof do
begin
Table1.Append;
Table1.fieldbyname('欄位1').asstring:=Query5.Fields[0].AsString;
Table1.fieldbyname('欄位2').asstring:=Query5.Fields[1].AsString;
Table1.fieldbyname('欄位3').asstring:=Query5.Fields[2].AsString;
Table1.fieldbyname('欄位4').asstring:=Query5.Fields[3].AsString;
Table1.Post;

Query5.Next
end;

------
What do we live for if not to make life less difficult for each other?

請教一下 query5.next 的用意是?
另外，這樣不就每次都要把table1給清乾淨，
請問怎麼一次把table1的資料都清空?@@
===================引 用 christie 文 章===================
Query5.Active :=true; // 或 Query5.Open

while not Query5.Eof do
begin
Table1.Append;
Table1.fieldbyname('欄位1').asstring:=Query5.Fields[0].AsString;
Table1.fieldbyname('欄位2').asstring:=Query5.Fields[1].AsString;
Table1.fieldbyname('欄位3').asstring:=Query5.Fields[2].AsString;
Table1.fieldbyname('欄位4').asstring:=Query5.Fields[3].AsString;
Table1.Post;

Query5.Next
end;

問一?
A:
****************
TDataSet.Next
****************

Moves to the next record in the dataset.
procedure Next;
Description
Call Next to move to the next record in the dataset, making it the active record. Next posts any changes to the active record and
Sets the Bof and Eof properties to False.
Fetches the next record and makes it the active record.
If the dataset is not unidirectional, fetches any additional records required for display, such as those needed to fill out a grid control.
Sets the Eof property to True if the last record in the dataset was already active.
Broadcasts the record change so that data controls and linked detail sets can update.
Note: TDataSet uses internal, protected methods to move the active record and to fetch additional records required for display. In TDataSet, these internal methods are empty stubs. Descendant classes implement these methods to enable the Next method to work.
===================引 用 g9614721 文 章===================
請教一下 query5.next 的用意是?
另外，這樣不就每次都要把table1給清乾淨，
請問怎麼一次把table1的資料都清空?@@
===================引 用 christie 文 章===================
Query5.Active :=true
; // 或 Query5.Open

while not Query5.Eof do
begin
Table1.Append;
Table1.fieldbyname('欄位1').asstring:=Query5.Fields[0].AsString;
Table1.fieldbyname('欄位2').asstring:=Query5.Fields[1].AsString;
Table1.fieldbyname('欄位3').asstring:=Query5.Fields[2].AsString;
Table1.fieldbyname('欄位4').asstring:=Query5.Fields[3].AsString;
Table1.Post;

Query5.Next
end;

------
What do we live for if not to make life less difficult for each other?

問二
請問怎麼一次把table1的資料都清空?
A:
Delete from Table1;

------
What do we live for if not to make life less difficult for each other?

thanks
===================引 用 christie 文 章===================
問二
請問怎麼一次把table1的資料都清空?
A:
Delete from Table1;