主题：窗口中统计

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

错误信息如下：

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

老师，刚刚的问题解决了，还有一个问题，就是本月销售和本年销售的数据如何统计？

老师，我想实现通过不同的用户登录进去后，只看到自己区域内的销售数据。你看这样写可以不？

Dim b1 As Integer = DataTables("销售总表").SQLCompute("SUM(销售件数)","订单日期 >= '"  & Date.Today & "' and 订单日期 < '" & Date.Today.AddDays(1) & "'  and 区域='" & quyu & "' and 用户名 ='" & yonghuming & "'" )
e.Form.Controls("今日销售").text = b1