主题：窗口中统计

我在窗口中放了几个标签，然后想在标签中显示统计信息，我写了如下代码，但出现错误

错误信息如下：

Dim b1 As Integer = DataTables("销售总表").SQLCompute("SUM(销售件数)","订单日期 >= #"  & Date.Today & "# and 订单日期 < #" & Date.Today.AddDays(1) & "#" )
e.Form.Controls("今日销售").text = b1
Dim b4 As Double
Dim n As Integer = Date.Today.DayOfWeek
Dim d1 As Date = iif(n=0,Date.today.Adddays(n-6),Date.today.Adddays(1-n))
Dim d2 As Date = iif(n=0,Date.today.Adddays(n),Date.today.Adddays(7-n))
b4 = DataTables("销售总表").SQLCompute("sum(销售件数)","订单日期 >= #" & d1 & "# And 订单日期 <= #" & d2 & "#")
e.Form.Controls("本周销售").text = b4

统计的数据一直都是0，不知道哪里出错了，请老师们帮忙解决一下。

此主题相关图片如下：qq图片20150727145449.png