能啊
你自己设置tbatchmove的option就行了啊

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);begin
      if Query1.Active = False then
        Exit;
      if SaveDialog1.Execute then
        begin
          Table1.TableName := SaveDialog1.FileName;
          with BatchMove1 do
            begin
              Source := Query1;
              Destination := Table1;
              Mode := batCopy;//这里就是动态的设计
              Execute;
              ShowMessage(IntToStr(MovedCount) + ' records copied');
            end;
         end;
      end;
      

  2.   


    这样不是我要的结果
    我是说几重方法在一个BACHMOVE中应用