100分 马上给!!!!!!!! up up

Question

to jianghuxiaozi(江湖小子) 
空记录不一定会在最后~~~可能有一两条会跑到中间去~~这样就会产生错误

Answer 1

可不可以这样呢，现将你的东东在rich里面画出来，然好在打印
另外可以在quickrep的onpreview加入程序代码分析数据记录的记录数

Answer 2

TO YANGYUGW(yangyu)
　关键是增加记录后~~会有几条在中间~~并不在最后~也不能排序

Answer 3

大家看看这个http://www.csdn.net/expert/topic/512/512507.shtm

Answer 4

简单,做一个新的表(对应quickrep的datasource),里面加一个id字段(自动增加的)并做主见,然后把两条记录和18条空记录加到新表中,然后用detailband打印出来即可

Answer 5

自定义打印，
调用OnNeedData，
设置一页一共有几行，到了就换页。

Answer 6

TO ：　liang_z(千山一刀之忍者神龟)　
怎样实现？？

Answer 7

// 使用 QuickRep1.OnNeedData 能够获得自主的打印控制
// 代码示例：var
  tailCount: Integer; // 此变量最好定义为类成员变量procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
  tailCount := 0;
end;// 需要清除 QuickRep1.DataSet 才能控制打印哦
procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
const
  REPEAT_COUNT = 10;
begin
  MoreData := False;  if (not Table1.Eof) then
  begin
    // 自己给一些控件赋值
    //QRLabel1.Caption := 'have - ' + QRDBText1.Caption;    // 自己控制记录指针
    Table1.Next;    MoreData := True;
  end
  else
  begin
    // 移动到表末尾时可以追加一定数目的特定数据
    // 在此当然也可以编程控制打印空白记录直到页尾
    if (tailCount < REPEAT_COUNT) then
    begin
      Inc(tailCount);      // 可以使用 QRLabel1 遮住 QRDBText1 来实现特定值打印
      QRLabel1.Caption := 'blank';      // 可以使用 OnPrint 事件控制 QRDBText1 来实现特定值打印
      QRDBText1.OnPrint := nil;      MoreData := True;
    end;
  end;
end;procedure TForm1.QRDBText1Print(sender: TObject; var Value: String);
begin
  // 在此控制打印数据，如果是追加特定数据，给 Value 赋值即可
end;

Answer 8

给分,我给你源码实现程序.
我的mail:[email protected]

Answer 9

http://www.csdn.net/Expert/topic/512/512806.shtm
救命啊

Answer 10

to:　lillin(wenxu)
怎么给你啊