如何在MS Access中实现序列记录拆分计算并生成汇总表

这需求完全可以实现，而且有两种常用方案：直接用Access SQL查询完成（简洁高效），或者用VBA结合ADO Recordset来处理（更灵活）。我给你详细拆解一下：

方案一：使用Access SQL直接插入计算结果 #

如果你的数据结构固定（每个1st都对应2nd=1、2、3三条记录），直接写SQL语句就能完成计算并插入到summary表，不需要写代码。

首先确保summary表已经创建好，字段类型要适配数值（比如用Double类型存储计算后的结果）。然后执行下面的SQL：

INSERT INTO summary ([1st], [2nd], [3rd])
SELECT 
    t1.[1st],
    (t1.[3rd]/t2.[3rd]) AS Calc2nd,
    (t2.[3rd]/t3.[3rd]) AS Calc3rd
FROM 
    (SELECT [1st], [3rd] FROM table WHERE [2nd] = 1) AS t1
INNER JOIN 
    (SELECT [1st], [3rd] FROM table WHERE [2nd] = 2) AS t2 ON t1.[1st] = t2.[1st]
INNER JOIN 
    (SELECT [1st], [3rd] FROM table WHERE [2nd] = 3) AS t3 ON t1.[1st] = t3.[1st];

逻辑说明： #

• 三个子查询分别提取每个1st对应2nd=1、2、3的3rd值
• 通过INNER JOIN把同一1st的三条记录关联起来
• 直接计算除法并插入到summary表的对应字段

方案二：VBA + ADO Recordset实现 #

如果需要更灵活的处理（比如应对数据缺失、除法为0的异常，或者中间需要额外逻辑），用VBA结合ADO Recordset是个不错的选择。

实现步骤： #

1. 打开VBA编辑器（按Alt+F11）
2. 确保引用了Microsoft ActiveX Data Objects Library（工具 -> 引用，勾选对应版本，比如6.1）
3. 插入模块，粘贴下面的代码：

Sub CalculateAndInsertToSummary()
    Dim conn As ADODB.Connection
    Dim rsSource As ADODB.Recordset
    Dim rsSummary As ADODB.Recordset
    Dim currentGroup As String
    Dim val1 As Double, val2 As Double, val3 As Double
    
    ' 建立与当前数据库的连接
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & CurrentDb.Name
    
    ' 读取源表数据，按分组和序号排序，确保顺序正确
    Set rsSource = New ADODB.Recordset
    rsSource.Open "SELECT [1st], [2nd], [3rd] FROM table ORDER BY [1st], [2nd]", conn, adOpenStatic, adLockReadOnly
    
    ' 打开汇总表，准备写入数据
    Set rsSummary = New ADODB.Recordset
    rsSummary.Open "summary", conn, adOpenDynamic, adLockOptimistic
    
    ' 遍历源数据，按分组处理
    Do While Not rsSource.EOF
        currentGroup = rsSource![1st]
        
        ' 提取当前分组的三个对应值（假设每个分组固定有3条记录）
        val1 = rsSource![3rd]
        rsSource.MoveNext
        val2 = rsSource![3rd]
        rsSource.MoveNext
        val3 = rsSource![3rd]
        
        ' 写入汇总表，同时处理除法为0的异常
        rsSummary.AddNew
        rsSummary![1st] = currentGroup
        ' 避免除数为0的错误
        rsSummary![2nd] = IIf(val2 <> 0, val1 / val2, Null)
        rsSummary![3rd] = IIf(val3 <> 0, val2 / val3, Null)
        rsSummary.Update
        
        rsSource.MoveNext ' 跳到下一个分组的第一条记录
    Loop
    
    ' 清理资源
    rsSource.Close
    rsSummary.Close
    conn.Close
    Set rsSource = Nothing
    Set rsSummary = Nothing
    Set conn = Nothing
    
    MsgBox "计算完成，结果已写入summary表！"
End Sub

代码说明： #

• 先建立数据库连接，读取源表并按1st和2nd排序，确保每个分组的记录顺序正确
• 按分组提取三个3rd值，计算除法时加入了除数为0的判断（用IIf返回Null避免报错）
• 把计算结果写入summary表，最后释放资源

总结 #

如果数据结构固定，优先用SQL方案，快速高效；如果需要处理异常或自定义逻辑，VBA+ADO的方案更灵活。两种方法都能满足你的需求。

内容的提问来源于stack exchange，提问作者Jbill