主题：按时间段求和

现在国家小规模纳税人人按季度纳税，个人所得税按年度缴纳，季度预交，我有一个表，需要通过代码动态计算每个季度的收入合计和每个年度截止每个季度末的累计收入，这个代码怎么写呢。谢谢
此主题相关图片如下：123456.png

，要求分客户计算

统计结果直接写入当前表右边的当前行，然后用当前行的的累计数—上行的累计数写入另外一列的当前行，代码怎么写，谢谢老师

根据您提供的意见，我做了，累计数可以做出来，但是我要计算第二季的累计，第三季度的累计时，需要加入[日期]>#04/01/2021#and [日期]<#6/30/2021#这样一个判断不知道该怎么加，谢谢

Select  Case e.DataCol.Name
     Case "金额"
         Dim dr As  DataRow
         Dim drs As List(of DataRow)
         dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
        If dr Is Nothing  Then  '如果没有找到上一行,说明本行就是第一行
            e.DataRow("本季累计") = e.DataRow("金额")
             dr = e.DataRow
         End If
         drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"),  "[_SortKey]")
         For i  As  Integer =  1  To drs.Count -  1  '重算余下行的余额
            drs(i)("本季累计") = drs(i-1)("本季累计") + drs(i)("金额")
         Next   
 End  Select

感谢