以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30849)
--  作者：cks
--  发布时间：2013/4/5 10:23:00
--  加载报错

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
按此在新窗口浏览图片

 

 

找了好久没找到原因，请师傅、师兄们指点一下是哪个细节出了问题
--  作者：cks
--  发布时间：2013/4/5 10:45:00
--  

有师兄在吗？

 
--  作者：FoxMan
--  发布时间：2013/4/5 10:50:00
--  
你代码中错误有三:
1.日期表达式有空格(# " & Date.Today & " #" );
2.判断当月日期有误,不一定有31天(申请日期 <= #" & s & " /31/" & a3 & "#")
3.lbl(0).Text = " 当前筛选数 : " & (DataTables("售后出差申请")DataRows.Count)       \'应为Tables("售后出差申请").Rows.Count

Dim Y1,M2,d3 As Integer
Dim D1,D2 As Date
Dim lbl(5) As WinForm.Label
Dim drs1 As List(Of DataRow)
Dim dt1 as DataTable = DataTables("售后出差申请")

lbl(1) = e.Form.Controls("总次数")
lbl(1).Text = " 出差总次数 : " & (dt1.dataRows.Count)

Y1 = Date.Today.Year
D1 = New Date(Y1,1,1)
D2 = New Date(Y1,12,31)

drs1 = dt1.Select("申请日期>= #" & D1 & "# and 申请日期 <= #" & D2 & "#")
lbl(2) = e.Form.Controls("本年度总次数")
lbl(2).Text = " 本年度出差次数 : " & (drs1.Count)

M2 = Date.Today.Month
d3 = Date.DaysInMonth(Y1,M2)
D1 = New Date(Y1,M2,1)
D2 = New Date(Y1,M2,d3)

drs1 = dt1.Select("申请日期>= #" & D1 & "# and 申请日期 <= #" & D2 & "#")
lbl(3) = e.Form.Controls("本月度总次数")
lbl(3).Text = " 本月出差次数 : " & (drs1.Count)


drs1 = dt1.Select("申请日期 = #" & Date.Today & "#" )
lbl(4) = e.Form.Controls("当天总次数")
lbl(4).Text = " 当天出差次数 : " & (drs1.Count)
lbl(0) = e.Form.Controls("当前总次数")
lbl(0).Text = " 当前筛选数 : " & (Tables("售后出差申请").Rows.Count)
[此贴子已经被作者于2013-4-5 10:54:20编辑过]
--  作者：cks
--  发布时间：2013/4/5 11:12:00
--  
多谢师兄，一针见血...原来我代码有这么多的问题