vb +access数据库合并，请教专业解答

Question

vb+access 就是把A和B表中的数据合并成C表的样子，序号不是主键，只有数量不同，其他字段格式都一样，
寻求代码，。先谢过

Answer 1

dim sql as string
dim sql_x as string
dim sql_y as string
sql_x = "select [数量] from 表A where [序号]=[表M].[序号]"
sql_y = "select [数量] from 表B where [序号]=[表M].[序号]"
sql = "select [序号]，[名称]，[规格类型]，(" & sql_x & ") + (" & sql_y & ") as 数量，[备注] from 表A as 表M"

Answer 2

问题还没解决？我给的代码不能用吗？代码我测试通过的呀。啊，明白了，我的解答不够专业哈。

追问

你给的代码我放在按钮的click事件中，提示缺少case，我靠，那怎么行，呵呵，你能把测试的截个图发给我看一下吗，感谢。

追答

我是把代码放在Access模块中测试的，运行代码能够把两个模拟表的数据相加合并，就是把表B的“数量”加到表A序号相同的记录的“数量”中。你要把代码放到VB的按钮单击事件中，应该做一些相应的调整，毕竟VB与VBA是有一些差别的。同时，我写的是最基本的代码，没有任何错误处理和信息提示语句，如果要完善最好也能加上，比如数据合并完成应有个提示。
另外，“缺少case”的VB 编译错误好像是出在SQL语句写法有问题的可能性比较大吧。

追问

感谢感谢，我在琢磨琢磨