主题：[求助]代码一直错误，求正解

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 25
For i = 1 To m
dr(i)= DataTables("账单").Find("日期 = #" & rq.AddDays(-i) & "#")
yearerl(j) = yearerl(j)+dr(i)(dt.Cols(j).Name)
Next
Next

一直出错，想求出截止日期内全年分类的账单和，求狐长解答