| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 统计的合计值怎么写入另外一个表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65904) |
| -- 作者：cyrollin -- 发布时间：2015/3/25 13:54:00 -- 统计的合计值怎么写入另外一个表 TIANTIAN ，请给个思路： 统计的合计值怎么写入另外一个表 或者 HELPER
|
| -- 作者：Bin -- 发布时间：2015/3/25 13:57:00 -- 用Compute 直接获得统计结果,就可以随意控制赋值了 |
| -- 作者：cyrollin -- 发布时间：2015/3/25 15:23:00 -- 谢谢BIN,我看到这一句： Dim Total As Long Total = DataTables("订单").Compute("Sum(数量)", "产品 = \'PD01\'") Output.Show(Total) 如果加一个时间段，该怎么加呢？比如我要做个月统计，或者从某天到某天， |
| -- 作者：有点甜 -- 发布时间：2015/3/25 15:24:00 -- 参考
http://www.foxtable.com/help/topics/2720.htm
|
| -- 作者：Bin -- 发布时间：2015/3/25 15:25:00 -- 参考帮助http://www.foxtable.com/help/topics/2720.htm 把条件按照以上帮助的方式设置即可
|
| -- 作者：狐狸爸爸 -- 发布时间：2015/3/25 15:28:00 -- 此外，你要掌握表达式的基本语法： http://www.foxtable.com/help/topics/0102.htm http://www.foxtable.com/help/topics/1647.htm
还要知道合成表达式： http://www.foxtable.com/help/topics/1284.htm
Dim Total As Long |
| -- 作者：cyrollin -- 发布时间：2015/3/25 15:28:00 -- Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天 Dim Filter As String Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" Tables("订单").Filter = Filter Dim Total As Long Total = DataTables("订单").Compute("Sum(数量)", "产品 = \'PD01\'")
Output.Show(Total) 这样组合起来吗？ |
| -- 作者：Bin -- 发布时间：2015/3/25 15:29:00 -- 看6楼 |
| -- 作者：狐狸爸爸 -- 发布时间：2015/3/25 15:30:00 -- Dim y As Integer = Date.Today.Year Dim m As Integer = Date.Today.Month Dim dt1 As New Date(y, m, 1) Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) \'获取本月的最后一天 Dim Filter As String Filter = "产品 = \'PD01\' And 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" Dim Total As Long Total = DataTables("订单").Compute("Sum(数量)", Filter) |
| -- 作者：cyrollin -- 发布时间：2015/3/25 15:37:00 -- 好厉害，一句简单的代码就足够FILTER我要的数据了，非常3Q FOR 您们的帮助。 |