Fórum EXPORTAÇÃO DE UMA TABELA PARA OUTRA DOS ISTENS SELECIONADOS NO DBGRID #607342

procedure TForm1.GRID_TABELA_AKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_SPACE then
  begin

    if (Tabela_A.Active = true) and (Tabela_A_NOME.Value <> '') then
    begin
      Tabela_A.Edit;
      if Tabela_A_SELECIONADO_.Value = 'S' then
      begin
        Tabela_A_SELECIONADO_.Value := 'N';
      end
      else
      begin
        Tabela_A_SELECIONADO_.Value := 'S';
      end;

       Tabela_A.post;
    end;
  end;

end;

procedure TForm1.Btn_Export_RegistrosClick(Sender: TObject);
begin

          Tabela_A.First;
          if Tabela_A.RecordCount=0 then
              begin
              ShowMessage('Nenhum registro para Importar');
              end
              else
              begin
              if not Tabela_A.Eof then
              repeat
                     if Tabela_A_SELECIONADO_.Value='S' then
                     BEGIN
                     if NOT Tabela_B.Locate('_NOME',Tabela_A.FieldByName('_NOME').Value,[]) then
                     BEGIN
                       //EXPORT
                       Tabela_B.Insert;
                       Tabela_B.FieldByName('_NOME').Value:=
                       Tabela_A_NOME.Value;
                       Tabela_B.Post;
                     END;

                     END;

                     Tabela_A.Next;
              until (Tabela_A.Eof);


              end;

end;