怎么会导入两次?代码如下:
lExcelToTable.FileName := OpenDialog1.FileName;
lExcelToTable.DataSource:=DataSource1;
lExcelToTable.FieldMap.Add('DataSetBZSJJ1.fl_id=Sheet1[1,0]');
lExcelToTable.FieldMap.Add('DataSetBZSJJ1.dag_id=Sheet1[2,0]');
lExcelToTable.FieldMap.Add('DataSetBZSJJ1.d_id=Sheet1[3,0]');
lExcelToTable.FieldMap.Add('DataSetBZSJJ1.ztm=Sheet1[4,0]');
lExcelToTable.FieldMap.Add('DataSetBZSJJ1.mj=Sheet1[5,0]');
lExcelToTable.FieldMap.Add('DataSetBZSJJ1.bgqx=Sheet1[6,0]');
lExcelToTable.StartRow :=1;
lExcelToTable.EndRow :=50;
lExcelToTable.Execute(lmsg) ; |