以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码一直错误，求正解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27217)
--  作者：guoqi1129
--  发布时间：2012/12/25 14:37:00
--  [求助]代码一直错误，求正解

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

 

一直出错，想求出截止日期内全年分类的账单和，求狐长解答
--  作者：guoqi1129
--  发布时间：2012/12/25 14:46:00
--  
好
--  作者：lin_hailun
--  发布时间：2012/12/25 14:48:00
--  
 要么贴出全部代码，要么上传你的数据表。