使用ExcelToTable导入数据,只能导入一行记录,不知何故。
用ShowFieldMapEditor指定字段映射或者直接在ExcelToTable的属性中设置,结果都是只导入一行。
代码如下,谢了先!
var
err:string;
table:TAbstractDataSet;
begin
if Self.OpenDialog1.Execute then
begin
err:= '数据导入错误!';
ExcelToTable1.FileName := Self.OpenDialog1.FileName;
ExcelToTable1.StartRow := 2;
if ExcelFieldMapFunc.ShowFieldMapEditor(ExcelToTable1) then
//ExcelToTable1.EndRow := 5;
ExcelToTable1.Execute(err);