主题：窗口中统计

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

错误信息如下：

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

 你用的是什么数据库？sqlserver的话，就把#改成'

如果还报错，有可能是日期格式的问题 http://jingyan.baidu.com/article/647f0115925aee7f2148a8b5.html

 

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

 关键是日期条件的编写，参考

 

http://www.foxtable.com/help/topics/2720.htm

 

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

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

 代码没有问题，现在你的问题是什么？

 

 如果要控制加载数据，就在登陆按钮那里控制一下。如

 

 DataTables("销售总表").LoadFilter = "区域='" & quyu & "' and 用户名 ='" & yonghuming & "'" )

 DataTables("销售总表").Load