老师，下面代码会多复制一行（项目类别）的列。
Select Case e.DataCol.name
Case "项目_类别","项目_明细","记录日期"
If e.DataRow.IsNull("项目_类别") = False AndAlso e.DataRow.IsNull("项目_类别") = False AndAlso e.DataRow.IsNull("记录日期") = False Then
If Cdate(e.DataRow("记录日期")).Year = Date.Today.Year Then
Dim dr61 As DataRow = DataTables("年度支出项目类别统计").Find("项目类别 = '" & e.DataRow("项目_类别") & "' And 项目明细= '" & e.DataRow("项目_明细") & "' and 年份 ='" & Date.Today.Year & "'")
If dr61 Is Nothing Then
dr61 = DataTables("年度支出项目类别统计").AddNew
dr61("项目类别") = e.DataRow("项目_类别")
dr61("项目明细") = e.DataRow("项目_明细")
dr61("年份") = Date.Today.Year
End If
End If
End If
End Select