合成不同的日期条件不就行了?
Dim filter1 As String ="会计年度 = '" & e.DataRow("会计年度") & "'"
Dim filter2 As String ="会计年度 = '" & e.DataRow("会计年度")-1 & "'"