tblSource.First;
  if tblSource.RecordCount>0 then
  begin
    while not tblSource.Eof do
    begin
      tblAIM.Append;
      for i :=0 to SList.Count - 1 do
      begin
        tblAIM.FieldByName(DList.Strings[i]).Value := tblSource.FieldByName(SList.Strings[i]).Value;
      end;
      tblAIM.FieldByName('导入标记').Value := 'Y';
      tblAIM.Post;
      tblSource.Next;
    end;

  end;
用TDBGrid 可以查看导入的数据 打开EXCEL就没数据  哪位好人帮我解决下的 谢谢