以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口中统计  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72278)

--  作者:xiaohuli
--  发布时间:2015/7/27 14:58:00
--  窗口中统计

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

错误信息如下:

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
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2015/7/27 15:02:00
--  
 你用的是什么数据库?sqlserver的话,就把#改成\'
--  作者:大红袍
--  发布时间:2015/7/27 15:03:00
--  

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

 


--  作者:xiaohuli
--  发布时间:2015/7/27 15:27:00
--  
老师,刚刚的问题解决了,还有一个问题,就是本月销售和本年销售的数据如何统计?
--  作者:大红袍
--  发布时间:2015/7/27 15:29:00
--  

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

 

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

 


--  作者:xiaohuli
--  发布时间:2015/7/29 11:15:00
--  

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

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


--  作者:大红袍
--  发布时间:2015/7/29 11:51:00
--  

 代码没有问题,现在你的问题是什么?

 

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

 

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

 DataTables("销售总表").Load