请教代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教代码

共有3593人关注过本帖树形打印复制链接主题：请教代码

CBSLULU33

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：142 积分：1000 威望：0 精华：0 注册：2014/2/20 13:25:00

请教代码

Post By：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 & ")" )

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

逛逛

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：142 积分：1000 威望：0 精华：0 注册：2014/2/20 13:25:00

Post By：2014/7/20 21:17:00 [只看该作者]

谢谢逛老师指导

下一主题 >> << 上一主题

主题：请教代码