vb+access数据库表和表合并问题，请教高手。

Question

现在我有一个access数据库db1.mdb，里面有两张表，表a和表b，两张表里面的字段一模一样，比如有，序号、类型、名称、数量。只是两张表中的“数量”这个字段数据不同，我想把这两个表合并，“数量”这个字段的数据合计，请教高手怎么写代码，稍微清楚详细一些，举个例子即可，感谢

Answer 1

就是说，只需要把表B的“数量”加到表A的“数量”里？两张表的记录数是相同的吗？“序号”是不重复的吗？是“主键”吗？“序号”相同的记录“数量”相加吗？

追问

我没有设置主键，两张表格式一模一样，记录数也一样多。就是对应的数量不同。谢谢

追答

你没回答完我的问题，“序号”是否有重复？可否按“序号”相同的记录“数量”相加？

追问

每个表中的序号都是1-32。

追答

Sub 数据合并()
Dim rs1 As Recordset
Dim xh As String, num As Integer
Set rs1 = CurrentDb.OpenRecordset("SELECT 序号,数量 FROM 表b")
rs1.MoveFirst
While Not rs1.EOF
xh = rs1("序号")
num = rs1("数量")
CurrentDb.Execute ("UpDate 表a Set 数量 = 数量 + " & num & " Where 序号 = '" + xh + "'")
rs1.MoveNext
Wend
rs1.Close
Set rs1 = Nothing
End Sub

Answer 2

高手的不是 问题的可以解决