L
liuyang
Unregistered / Unconfirmed
GUEST, unregistred user!
是这样的。有一个统计报表
我用quickreport做的。
我在里面根据需要放了近1000个QRLABLE。每一个都是用来存统计来的数据。
是这样写的:
procedure Tjtbsc.BitBtn1Click(Sender: TObject);
begin
if (radiobutton1.Checked = true) then
//申诉案件处理情况月报表的生成
begin
label1.visible:=true;
label1.Caption:='正在生成报表......';
progressbar1.Visible:=true;
//第一行
query1.Close;
query1.SQL.clear;
query1.SQL.Text:='select count(*) from ass_ajqk_v a1, ass_cljg_v a3 where (a1.xh=a3.xh) and (a3.zwqx="转其他机关") and (a1.lyfs="集体上访")';
query1.Open;
jt01.QRLabel634.Caption:=query1.FieldByName('count(*)').AsString;
。
。
。
progressbar1.StepIt;
//每执行五条SQL语句 进度条加一格
progressbar1.Position:=0;
progressbar1.Visible:=false;
label1.Caption:='';
jt01.QR1.Preview;
exit;
end;
结果最多只能写入400多个qrlabel。再写入上述语句的时候,就会出错了。
提示 access violation at address 02932f4c in module
'我生成的ocx名.ocx' read of address 02932f4c
我估计这样做效率是不太高。可能是内存不够的原因。可在128兆下运行还是有
这样的毛病。
注:如果在400以下的qrlabel就没事。多了就不行了。
各位知道怎么解决吗?急死我了。。。谢谢
我用quickreport做的。
我在里面根据需要放了近1000个QRLABLE。每一个都是用来存统计来的数据。
是这样写的:
procedure Tjtbsc.BitBtn1Click(Sender: TObject);
begin
if (radiobutton1.Checked = true) then
//申诉案件处理情况月报表的生成
begin
label1.visible:=true;
label1.Caption:='正在生成报表......';
progressbar1.Visible:=true;
//第一行
query1.Close;
query1.SQL.clear;
query1.SQL.Text:='select count(*) from ass_ajqk_v a1, ass_cljg_v a3 where (a1.xh=a3.xh) and (a3.zwqx="转其他机关") and (a1.lyfs="集体上访")';
query1.Open;
jt01.QRLabel634.Caption:=query1.FieldByName('count(*)').AsString;
。
。
。
progressbar1.StepIt;
//每执行五条SQL语句 进度条加一格
progressbar1.Position:=0;
progressbar1.Visible:=false;
label1.Caption:='';
jt01.QR1.Preview;
exit;
end;
结果最多只能写入400多个qrlabel。再写入上述语句的时候,就会出错了。
提示 access violation at address 02932f4c in module
'我生成的ocx名.ocx' read of address 02932f4c
我估计这样做效率是不太高。可能是内存不够的原因。可在128兆下运行还是有
这样的毛病。
注:如果在400以下的qrlabel就没事。多了就不行了。
各位知道怎么解决吗?急死我了。。。谢谢