| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教代码 (http://foxtable.net/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 -- 谢谢逛老师指导 |