主题：请教代码

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("表A").Select("", "品名,月份,_Identify")
    If pdr Is Nothing OrElse dr("品名") <> pdr("品名") Then
        dr("本年累计") = dr("本月数量")
    Else
        dr("本年累计") = pdr("本年累计") + dr("本月数量")
    End If
    pdr = dr
Next

Tables("表A").sort = "品名,月份"

循环是最快的，compute比较慢，而且，不可能每一行compute一次啊。