数据导出Excel问题请教－－－再线等

Question

查询出的数据在DBGrid中分2页显示，采用下面导出方法：
          ARow := 1;
          DmForm.TickADO.First;
          while Not DmForm.TickADO.Eof do
          begin
              ACol := 0;
              for i := 0 to TickSerachGrid.FieldCount -1 do
              begin
                  if Not VarIsNull(TickSerachGrid.Fields[i].Value) then   
                      _sVal := Trim(TickSerachGrid.Fields[i].Value)
                  else
                      _sVal := '';                  _Title := Trim(TickSerachGrid.Columns[i].Title.Caption);                  MsExcel.Cells[3,ACol + 1].Value := Trim(_Title);
                  MsExcel.Cells[ARow + 3,ACol + 1].Value := Trim(_sVal);                  ACol := ACol + 1;
              end;
              DmForm.TickADO.Next;
              ARow := ARow + 1;
          end;
但是只能导出当页的数据，如何导出全部页的数据？

Answer 1

你分两页显示时ADO组件只下载了一半的数据,我怀疑是在第一页的最后一条记录时组件判断已经到了未尾,其实实际是在这时组件才从服务器下载另一页的数据,你可以试着,在导出的时候让组件先将所有数据下载到本地,只需将记录移到未尾即可.