Use TabelaAntiga In 0 Use TabelaNova In 0 Select TabelaAntiga Scan m.Campo1 = TabelaAntiga.Campo1 m.Campo2 = TabelaAntiga.Campo2 m.Campo3 = TabelaAntiga.Campo3 Insert Into TabelaNova (CampoA, CampoB, CampoC) Values (m.Campo1, m.Campo2, m.Campo3) EndScanEm VFP 8, eu acredito que você possa fazer isso também:
Insert Into TabelaNova (CampoA, CampoB, CampoC) Select Campo1, Campo2, Campo3 From TabelaVelhaDivirta-se! []s!