为什么用table就可以用adotable就不行呢？

cruise007 2006-01-23 05:15:44

下面是我在做报表的时候想实现报表分页的功能但是在统计数据的时候我发现用bde里面的table1连数据库的时候qrTest.DataSet.RecordCount 是正确的但是如果换成ado里面的adotable1连数据库时qrTest.DataSet.RecordCount 就出错请问各位高手是什么原因呢？

小弟这里感谢了

procedure TqrTest.ChildBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if PrintCount >= qrTest.DataSet.RecordCount then
PrintBand := True
else
PrintBand := False;
end;

...全文

155 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

人鱼传说 2006-02-04

打赏
举报

学习

cruise007 2006-02-03

打赏
举报

错误信息是
‘access violation at address 004e6945 in module ‘project1.exe’. read of address 00000000’

耙子 2006-02-03

打赏
举报

我记得有个版本的Delphi的RecordCount的帮助上面写着，它只能保证Paradox和DBF数据返回的结果是正确的，其他可能返回的是-1。

不建议你使用这个属性，应该用Select count(*) from xxxx来返回。
如果一定要用，那么之前先用

begin
qrTest.DataSet.Last; // 把所有的数据都读进来，如果表很大可能会慢
if PrintCount >= qrTest.DataSet.RecordCount then
PrintBand := True
else
PrintBand := False;
end;

NightCloud 2006-01-24

打赏
举报

报什么错。
如果可以，先加上
qrTest.dataSet.first试试；
procedure TqrTest.ChildBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
qrTest.DataSet.first;
if PrintCount >= qrTest.DataSet.RecordCount then
PrintBand := True
else
PrintBand := False;
end;