[结贴][请求]EXCEL导入问题

crystal

我想导入选中的数据中导入 EXCEL文件的内容，如何做呢？
我现在已经实现导入，但是每次都会自己新增一条。

shangxy

你现在是怎么实现导成excel的？

crystal

procedure TMainForm.Button1Click(Sender: TObject);
var
  str: String;
begin
if OpenDialog1.Execute then
begin

  try
      ExcelToTable1.FileName := OpenDialog1.FileName;

       str := 'err';
       if not ExcelToTable1.Execute(str) then
          begin
            jsDialogs.ShowError(str, '导入excel失败!');
          end ;

  finally
       ExcelToTable1.free;
     end;
end;

end;

crystal

现在导入是增加在最后一行（如图），我想鼠标选中上面的空记录时新增，如何实现呢？

lixy

您可以先导入到一个自定义数据集，然后通过数据集代码操作，插入到你需要的位置。
导入控件只会增加数据，没有其他类型的动作。

crystal

结贴，搞定。5楼的方法