- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 月度累计计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116996)
-- 发布时间：2018/4/3 23:14:00
-- 月度累计计算
求
此主题相关图片如下：企业微信截图_20180403231323.png
将今日达成的内容填写完毕 后面的本月累计自动核算
成交人数 进店人数 成交金额 达成率 等于 成交人数 除以 进店人数
[此贴子已经被作者于2018/4/3 23:16:52编辑过]
-- 发布时间：2018/4/4 9:06:00
--
比如代码
Select Case e.DataCol.name
Case "今日达成_成交人数"
Dim filter As String = "部门名称 = \'" & e.DataRow("部门名称") & "\'"
Dim sum1 As Double = e.DataTable.Compute("sum(今日达成_成交人数)", filter)
e.DataTable.ReplaceFor("本月累计_成交人数",sum1,filter)
End Select
-- 发布时间：2018/4/4 9:39:00
--
达成率
成交人数 除以 进店人数
百分比怎么计算呢 需要加上%符号
-- 发布时间：2018/4/4 10:49:00
--
做一个表达式列计算，不就可以了？用代码也很简单吧？
如果要加上%号，就设置列属性 http://www.foxtable.com/webhelp/scr/0050.htm
-- 发布时间：2018/4/4 11:16:00
--
With wb.AddTable("","Table1")
.Alternate = 3
Dim nms() As String = {"部门名称","本月目标","今日进店人数","今日成交人数","今日成交金额","本月累计进店人数","本月累计成交人数","本月累计成交金额" ,"本月累计达成率"}
.Head.AddRow(nms)
For Each r As DataRow In DataTables("每日业绩明细").sqlSelect("", "", "日期 Desc")
\'For Each r As DataRow In DataTables("终端用户").sqlSelect("[报备人] = \'" & name & "\'", "", "日期 Desc")
With .Body.AddRow(r("部门名称"),r("本月目标"),r("今日进店人数"),r("今日成交人数"),r("今日成交金额"),r("本月累计进店人数"),r("本月累计成交人数"),r("本月累计成交金额"),r("本月累计达成率"))
\'.AddCell(Format(r("日期"),"MM月dd日"))
End With
Next
End With
e.WriteString(wb.Build)
移动版 r("本月累计达成率")) 需要 % 符号怎么加
-- 发布时间：2018/4/4 12:38:00
--
With .Body.AddRow(r("部门名称"),r("本月目标"),r("今日进店人数"),r("今日成交人数"),r("今日成交金额"),r("本月累计进店人数"),r("本月累计成交人数"),r("本月累计成交金额"),Format(r("本月累计达成率"), "0.00%"))