您可以使用 SQL 插入到语句将指定的记录从一个表复制到另一个表：
INSERT INTO ToTableName SELECT * FROM FromTableName
也可以添加任何所选的记录末尾添加一个 WHERE 子句：
INSERT INTO ToTableName SELECT FromTableName.* FROM FromTableName WHERE Key = 'Key'
如何在 Visual Basic 中使用 SQL 语句
下面是一个示例，演示如何在 Visual Basic 代码中使用 SQL 语句：
Dim db As database, ds As dynaset Set db = OpenDatabase("C:\VB3\FOXTEST", False, False, "foxpro 2.5;") db.Execute "INSERT INTO ToTableName SELECT FromTableName.* FROM FromTableName" 如何复制记录使用字段集和值属性
以下循环将所有字段中表格 1 中当前记录都复制到表 2 中当前记录中相应的字段：
Dim MyDB As Database, Tbl1 As Table, Tbl2 As Table Set MyDB = OpenDatabase("BIBLIO.MDB") ' Open Database. Set Tbl1 = MyDB.OpenTable("Publishers") ' Open Table. Set Tbl2 = ... For i = 0 to Tbl1.Fields.Count - 1 Tbl2(Tbl1.Fields(i).Name).Value = Tbl1.Fields(i).Value Next 的上述循环假设表 2 中的字段与表 1 中的相同。
机器翻译
注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版：
110588 (http://support.microsoft.com/kb/110588/en-us/ )
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
