如何用delphi 实现 B/S 结构中报表功能

Question

错误提示类似：BOF EOF 有一个是真或假.......---------------
已经有很多人问这个问题了，你可以搜索一下。
第一步，确定你的语句是否有问题比如已经bof了还在执行next这样子的操作。
第二步，如果代码没有错误还出错，则打补丁，我也不记录是微软的ado补丁还是delphi6的补丁，反正我是乱打一气 
第三步，如果还有问题，就自已写语句n,屏蔽掉这个错误.我有段代码你可以看一下
  try
    MainDataModule.adocntMain .BeginTrans;
    adorsResult.UpdateBatch;
    MainDataModule.adocntMain .CommitTrans ;
  except
    //¿ªÊ¼´¦ÀíADOµÄErrors¶ÔÏó£»
    adoErrors:=MainDataModule.adocntMain.Errors;
    for iCount:=0 to adoErrors.Count-1 do
      begin
        adoError:=adoErrors.Item[iCount];
        case adoError.NativeError of
          32:   ;//ʲôҲ²»×ö£»
          1009: ;
        else
          begin
            MainDataModule.adocntMain.RollbackTrans;
            showmessage('Êý¾Ý±£´æʧ°Ü, Çë֪ͨϵͳ¹ÜÀíÔ±.');
            Raise;
            Exit;
          end;//case else
        end;//case
      end;//for
  end;

Answer 1

不好意思，乱码的都是注释里的中文，不用管它