一、问题描述：

      怎样将表1，表2的数据合并成表3样式的数据？如下图：

示   例:

点击下载此附件

二、解决方法源码：

Private Sub Command0_Click()
'    删除表3数据
    CurrentDb.Execute "delete * from 表3"
    
'    给表3追加表1的数据
    CurrentDb.Execute "insert into 表3(品种,[1月销量]) select 品种,[1月销量] from 表1"
    
'    将表2中不同于表1的品种追加到表3
    CurrentDb.Execute "insert into 表3(品种) Select 表2.品种 FROM 表1 RIGHT JOIN 表2 ON 表1.品种 = 表2.品种 Where 表2.品种  Not In ([表1].[品种]);"
    
'    将表2中独有的字段2月销量值更新到表3
    CurrentDb.Execute "update 表3 inner join 表2 on 表2.[品种]=表3.品种 set 表3.[2月销量]=表2.[2月销量]"
    
    MsgBox "表3数据更新追加完成！"

End Sub