主從報表的分欄打印，急急急急急急急急急！！！！！！！！！！！！！ (29分)

在主從報表中實現從表的分欄打印
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝====

格式如下
＝＝＝＝＝＝＝＝＝＝＝=＝＝＝＝＝主表內容＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝從表欄1＝＝＝＝＝＝＝＝　　　　＝＝＝＝＝＝＝從表欄2＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝　　　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝　　　　＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝主表內容＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝=＝＝從一＝＝＝＝＝＝＝＝＝＝　　　　＝＝＝＝＝＝從二＝＝＝＝＝＝＝＝＝
十分火急！！！！！！！！！！！！！！！！！！！！！！!！！！！！！！！！！！

在打印格式上用QuickRep有难度～
用fast的那个东东不知可以否？ 我没有用过！
请高手帮助！
帮你提前

fastreport245,that's ok,right?

www.pcjingning.com，问报表论坛whf版主，我认为用report machine是可以做的，可以用子报表来做。

还好，这个问题，我已经实现了。不过因为在写商业软件。
所以，抱歉我不能说出具体时实现方法。

to asky ： 我说两句，商业软件连这点技术都保密吗？企不是太可笑了，[]快回家种地
去吧。

report machine 专门提供分栏打印功能,你可以到www.pcjingning.com看看

用report builder可以实现，我前段时间做过，没问题的。
主报表与子报表就可以了

asky,我很想誰你幾句,誰做的不是商業軟件,難道是自已用的麼,這种地方你最好不要來!
各位朋友,我的問題還沒有解決,現在正在极積的想辦法,有一段代碼你們看一下,格式是出
來了,但是從表的資料就只有一行,而且,好像不對勁,麻煩你們幫我看一下!
procedure TForm1.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
var
j:integer;
begin
if (adoquery1.Eof=true) then
moredata:=false;
if (adoquery1.eof=false)then
begin
moredata:=true;
adoquery2.First;
QRLabel2.Caption:=adoquery1.fieldbyname('no').asstring;
// if (adoquery2.Eof=true) then
moredata:=false;
// if (adoquery2.eof=false)then
//begin
// moredata:=true;
for j:=1 to 3do
begin
case j of
1:begin
QRLabel1.Caption:=adoquery2.fieldbyname('rsno').asstring;
end;
2:begin
QRLabel3.Caption:=adoquery2.fieldbyname('rsno').asstring;
end;
3:begin
QRLabel4.Caption:=adoquery2.fieldbyname('rsno').asstring;
end;
end;
adoquery2.next;
// end;
end;
//adoquery2.next;
adoquery1.next;
end;
end;

接受答案了.