以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于求各种平均值的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=78766)
--  作者：lgj716330
--  发布时间：2015/12/16 16:52:00
--  关于求各种平均值的问题
这个问题对我这个新手来 说有点棘手，求助大神
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.foxdb
--  作者：大红袍
--  发布时间：2015/12/17 9:20:00
--  

参考，直接用代码计算

 

http://www.foxtable.com/help/topics/0681.htm

 
--  作者：大红袍
--  发布时间：2015/12/17 9:27:00
--  

比如

 

Dim dt As DataTable = DataTables("零售业务")
Dim d As Date = "2015-10-31"
d = new Date(d.Year, d.Month, 1)
Dim by As Double = dt.Compute("sum(销量)", "部门名称 = \'上海南桥大润发\' and 所属日期 >= #" & d & "# and 所属日期 < #" & d.AddMonths(1) & "#")
Dim lj As Double = dt.Compute("sum(销量)", "部门名称 = \'上海南桥大润发\' and 所属日期 < #" & d.AddMonths(1) & "#")
msgbox(by & " " & lj)
--  作者：大红袍
--  发布时间：2015/12/17 9:29:00
--  

至于两个表的数据合并，你可以设置关联，把部门档案的值引入到子表零售业务。

 

http://www.foxtable.com/help/topics/0106.htm

 
--  作者：lgj716330
--  发布时间：2015/12/17 11:07:00
--  
那我再自己研究研究吧，再搞不出来再求助
--  作者：lgj716330
--  发布时间：2015/12/17 13:13:00
--  
以下是引用大红袍在2015/12/17 9:27:00的发言：

比如

 

Dim dt As DataTable = DataTables("零售业务")
Dim d As Date = "2015-10-31"
d = new Date(d.Year, d.Month, 1)
Dim by As Double = dt.Compute("sum(销量)", "部门名称 = \'上海南桥大润发\' and 所属日期 >= #" & d & "# and 所属日期 < #" & d.AddMonths(1) & "#")
Dim lj As Double = dt.Compute("sum(销量)", "部门名称 = \'上海南桥大润发\' and 所属日期 < #" & d.AddMonths(1) & "#")
msgbox(by & " " & lj)


这里的Dim d As Date = "2015-10-31",日期只能逐个来写吗
--  作者：Hyphen
--  发布时间：2015/12/17 15:08:00
--  
只是举个例子，具体根据项目的情况取值
--  作者：lgj716330
--  发布时间：2015/12/17 16:04:00
--  
先暂时通过增加一张不含产品年份和季节的零售业务表来解决了，大神提供的方法日后慢慢研究
--  作者：大红袍
--  发布时间：2015/12/17 16:44:00
--  
以下是引用lgj716330在2015/12/17 13:13:00的发言：

 

看3楼，内容要循环填充

 

http://www.foxtable.com/help/topics/0106.htm