Dim d As WinForm.DateTimePicker = e.Form.Controls("日期")
Dim rq As Date = d.Value
Dim m As Integer = rq.DayOfYear-1
For j = 1 To 25For i = 1 To mdr(i)= DataTables("账单").Find("日期 = #" & rq.AddDays(-i) & "#")yearerl(j) = yearerl(j)+dr(i)(dt.Cols(j).Name)NextNext
一直出错,想求出截止日期内全年分类的账单和,求狐长解答