以文本方式查看主题 - 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 -- 谢谢逛老师指导 |