【结贴】TExcelToTable导入问题

shangxy

while not ADOTable1.Eof do
  begin
    dialogs.ShowMessage(TDAtaSet(ADOTable1).Fields[0].AsString);
    ADOTable1.Next;
  end;
你是说这里没有数据么？ADOTable1.RecordCount为0？我这里是正常的。

刺青

我把记录总数show了一下，有100多条，但是就是进不去下面那个循环，怎么回事呢？
如图：

刺青

如果像40楼那样写，前面的那个循环A是可以进去的
但是后面那个循环B就进不去了。

shangxy

进不去循环是什么意思，条件为false了？
我这里就用你的代码，已经可以在datagrid上显示出自定义数据里面的数据了。

刺青

while not ADOTable1.Eof do
就是这个条件为false。是不是我的EXCEL表是导出来的，就会出现了这问题？你帮我测试下这个文件看，已上传。这个文件只有6条记录，但是读出很多条空的记录。

shangxy

如图

刺青

我重新做一个功能就可以了，原来那个也不知道是怎么回事。

然后，还有一个问题，我把功能编译签入刷新之后，用IE登录。
这个功能打不开，错误信息：
创建业务对象“业务模型\质检管理系统\5_资源管理\认证认可管理\认证认可附表导入\认证认可附表导入(BIZ:\ZJGLXT\FIVE_ZYGL\RZRKGL\RZRKFBDR.FUNC.dir\FBDR.Form)”时发生了错误。错误信息：无效的模块“BIZ:\ZJGLXT\FIVE_ZYGL\RZRKGL\RZRKFBDR.FUNC.dir\adocomps.dll”，文件长度为零。

是不是ADO控件的问题？服务器上要怎么设置才行？

shangxy

你要在服务端的NewVersion中把ado的bpl和dll放进去，然后修改一下config.xml，然后再用客户端安装制作工具重新做一下，让客户端重新下载才能生效。

刺青

另外，导入16000多记录需要8分钟左右，我还想再优化一点速度。请问两个数据集之间如何赋值才更有效率？
只能这样子赋值吗？
ADOTable1.First;
  while not ADOTable1.Eof do
  begin
    Query2.Append;
    for i := 0 to RC-1 do     //RC字段数
    begin
      Query2.FieldByName['zdy'+sysUtils.IntToStr(i+1)].AsString := ADOTable1.Fields.AsString;
    end;
    ADOTable1.Next;
  end

jiahaiming

试试DataSet.DisableControls