|

楼主 |
发表于 2009-2-18 16:07:54
|
显示全部楼层
procedure TBF_LOGISTICS_FORMDOC.Button_inputClick(Sender: TObject);
var
lExcelToTable:TExcelToTable;
bookname , lmsg : string;
begin
lExcelToTable:=TExcelToTable.Create(self);
try
lExcelToTable.FileName := input_config_dt.DataSet.FieldByName('file_name').AsString;
bookname := input_config_dt.DataSet.FieldByName('sheet_name').AsString;
lExcelToTable.DataSource := input_data_dt;
lExcelToTable.StartRow := input_config_dt.DataSet.FieldByName('star_row').AsInteger;
lExcelToTable.EndRow := input_config_dt.DataSet.FieldByName('end_row').AsInteger;
lExcelToTable.FieldMap.Add('DataSetinput_data_dt.DEPOT_NAME=' + bookname + '[1,0]');
//lExcelToTable.Execute(lmsg);
//{ if ExcelFieldMapFunc.ShowFieldMapEditor(lExcelToTable) then
//begin
if not lExcelToTable.Execute(lmsg) then
begin
jsDialogs.ShowError(lmsg, '导入excel失败!');
end ;
// end;
finally
lExcelToTable.Free;
end;
|
|