主题：加载报错

Dim lbl(5) As WinForm.Label
lbl(1) = e.Form.Controls("总次数")
lbl(1).Text = " 出差总次数 : " & (DataTables("售后出差申请").dataRows.Count)
Dim a3 As Integer = Date.Today.Year
Dim drs As List(Of DataRow)
drs = DataTables("售后出差申请").Select("申请日期>= #1/1/" & a3 & "#  and 申请日期 <= #12/31/" & a3 & "#")
lbl(2) = e.Form.Controls("本年度总次数")
lbl(2).Text = " 本年度出差次数 : " & (drs.Count)
Dim s As Integer = Date.Today.Month
Dim dr As List(Of DataRow)
dr = DataTables("售后出差申请").Select("申请日期>= # " & s & "/1/" & a3 & "#  And 申请日期 <= #" & s & " /31/" & a3 & "#")
lbl(3) = e.Form.Controls("本月度总次数")
lbl(3).Text = " 本月出差次数 : " & (dr.Count)
Dim dd As List(Of DataRow)
dd = DataTables("售后出差申请").Select("申请日期 = # " & Date.Today & " #" )
lbl(4) = e.Form.Controls("当天总次数")
lbl(4).Text = " 当天出差次数 : " & (dd.Count)
lbl(0) = e.Form.Controls("当前总次数")
lbl(0).Text = " 当前筛选数 : " & (DataTables("售后出差申请").dataRows.Count)

 

以上代码写在窗口加载生成后事件中，出现提示：

此主题相关图片如下：qq截图20130405102224.jpg

 

 

找了好久没找到原因，请师傅、师兄们指点一下是哪个细节出了问题

有师兄在吗？

 

多谢师兄，一针见血...原来我代码有这么多的问题