主题：[求助]统计

你在【年份】列填入什么数据，就统计什么数据啊。你要统计18年，那你就填入 2018 即可。

老师，代码修改后把2017年的数据也复制过去了。

此主题相关图片如下：图像 6.png

Select Case e.DataCol.name
    Case "项目_类别","项目_明细"
        If e.DataRow.IsNull("项目_类别") = False AndAlso e.DataRow.IsNull("项目_类别") = False Then
           
            Dim dr61 As DataRow = DataTables("年度支出项目类别统计").Find("项目类别 = '" & e.DataRow("项目_类别")  & "'")
            If dr61 Is Nothing Then
                dr61 = DataTables("年度支出项目类别统计").AddNew
                dr61("项目类别") = e.DataRow("项目_类别")
                dr61("项目明细") = e.DataRow("项目_明细")
                dr61("年份") = Cdate(e.DataRow("记录日期")).Year
            End If
            dr61("项目类别") = e.DataRow("项目_类别")
            dr61("项目明细") = e.DataRow("项目_明细")
            dr61("年份") = Cdate(e.DataRow("记录日期")).Year      
            dr61("年份") = Date.Today.Year
           
           
        End If
End Select

加上判断

If Cdate(e.DataRow("记录日期")).Year = Date.Today.Year Then

End If