Select Case e.DataCol.name
Case "项目_类别","项目_明细","年份"
If 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 年份='" & e.DataRow("年份") & "'")
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
加好友 
发短信
Post By：2021/5/11 11:50:00 [显示全部帖子]
