以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54032)

--  作者:CBSLULU33
--  发布时间:2014/7/20 18:19:00
--  请教代码
专家好,通过学习案例,知道了以下这段代码可以在TopicBar中显示本日销售金额:

Dim Page As WinForm.TopicPage
Dim cnt1 As Integer = DataTables("销售订单主表").Compute("Sum(销售金额)","销售日期 = #"  & Date.Today & "#")
Page = e.Form.Controls("TopicBar1").Pages.Add("销售资料","销售资料")
Page.Links.Add("今日销售收入","今日销售收入(" & cnt1 & ")" )

如果要统计本月和本年销售收入的话,代码该如何调整,谢谢!

--  作者:逛逛
--  发布时间:2014/7/20 18:57:00
--  

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

 

试试这样

月:

Dim cnt1 As Integer = DataTables("销售订单主表").Compute("Sum(销售金额)","SubString(Convert([销售日期],\'System.String\'),6,IIF(SubString(Convert([销售日期],\'System.String\'),7,1) In (\'-\',\'/\'),1,2)) = \'"  & Date.Today.Month & "\'")
 
年:
Dim cnt1 As Integer = DataTables("销售订单主表").Compute("Sum(销售金额)","SubString(Convert([销售日期],\'System.String\'),1,4)= \'"  & Date.Today.Year & "\'")
 

--  作者:CBSLULU33
--  发布时间:2014/7/20 21:17:00
--  
谢谢逛老师指导