Foxtable(狐表)用户栏目专家坐堂 → 如何把狐表里面的多个表关联到一个表里面统计


  共有6139人关注过本帖树形打印复制链接

主题:如何把狐表里面的多个表关联到一个表里面统计

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 14:55:00 [显示全部帖子]

 如果要连接多个表,参考

 

http://www.foxtable.com/webhelp/scr/2321.htm

 

http://www.foxtable.com/webhelp/scr/2322.htm

 

 如果要按月份分组,那就使用分组统计

 

http://www.foxtable.com/webhelp/scr/0158.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:00:00 [显示全部帖子]

以下是引用qiuquanwen在2017/5/3 14:58:00的发言:
谢谢,我参考下,但是还是不清楚怎么实现

 

不会做,那就把你项目上传上来看看 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:07:00 [显示全部帖子]

 请使用ie浏览器访问论坛,并上传项目。


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:14:00 [显示全部帖子]

贴出开发者密码

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:18:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:28:00 [显示全部帖子]

参考下面代码,意思是把本月的费用统计出来,看懂代码

 

Dim d As Date = Date.Today
d = new Date(d.Year, d.Month, 1)
Dim filter As String = ""
Dim dt As DataTable = DataTables("费用汇总表")
Dim ndr As DataRow = dt.AddNew
ndr("日期") = Date.today

 

filter = "发工资时间 >= #" & d & "# and 发工资时间 < #" & d.AddMonths(1) & "#"
Dim sum1 As Double = DataTables("员工工资").compute("sum(员工应发工资)", filter)
ndr("应付工资合计") = sum1

 

filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
sum1 = DataTables("员工日常费用").compute("sum(合计)", filter)
ndr("日常费用合计") = sum1


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:33:00 [显示全部帖子]

 是的,复制,改一下列名即可。

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:36:00 [显示全部帖子]

 你可以单独做一个按钮计算,或者写到切换表的事件去

 

http://www.foxtable.com/webhelp/scr/0663.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 15:47:00 [显示全部帖子]

Dim ds As Date() = {"2017-04-01", "2017-05-01", "2017-06-01"}
For Each m As Date In ds
    Dim d = new Date(m.Year, m.Month, 1)
    Dim filter As String = ""
    Dim dt As DataTable = DataTables("费用汇总表")
    Dim ndr As DataRow = dt.AddNew
    ndr("日期") = m
   
   
   
    filter = "发工资时间 >= #" & d & "# and 发工资时间 < #" & d.AddMonths(1) & "#"
    Dim sum1 As Double = DataTables("员工工资").compute("sum(员工应发工资)", filter)
    ndr("应付工资合计") = sum1
   
   
   
    filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
    sum1 = DataTables("员工日常费用").compute("sum(合计)", filter)
    ndr("日常费用合计") = sum1
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/3 16:13:00 [显示全部帖子]

参考代码

 

Dim m As Date = Date.Today

Dim d As Date = new Date(m.Year, m.Month, 1)
Dim filter As String = ""
Dim dt As DataTable = DataTables("费用汇总表")
Dim ndr As DataRow = dt.Find("日期 >= #" & d & "# and 日期 < #" & d.addmonths(1) & "#")
If ndr Is Nothing Then
    ndr = dt.AddNew
End If
ndr("日期") = m

 

filter = "发工资时间 >= #" & d & "# and 发工资时间 < #" & d.AddMonths(1) & "#"
Dim sum1 As Double = DataTables("员工工资").compute("sum(员工应发工资)", filter)
ndr("应付工资合计") = sum1

 

filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
sum1 = DataTables("员工日常费用").compute("sum(合计)", filter)
ndr("日常费用合计") = sum1


 回到顶部
总数 13 1 2 下一页