procedure TMainForm.Button2Click(Sender: TObject);
var
tmpFileName : String;
begin
if OpenDialog1.Execute then tmpFileName :=OpenDialog1.FileName;
ETT.FileName := tmpFileName;
ETT.FieldMap.Add('dsb.DataSet.id=Sheet1(1,1)');
ETT.FieldMap.Add('dsb.DataSet.文件编号=Sheet1(1,2)');
ETT.FieldMap.Add('dsb.DataSet.责任者=Sheet1(1,3)');
ETT.FieldMap.Add('dsb.DataSet.文件材料提名=Sheet1(1,4)');
ETT.StartRow :=2;
ETT.EndRow :=5;
ETT.Execute(tmpFileName) ;
end;
这样有问题吗???怎么没有数据 |