Foxtable(狐表)用户栏目专家坐堂 → 跨表统计


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

主题:跨表统计

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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
跨表统计  发帖心情 Post By:2015/7/30 17:38:00 [只看该作者]

在收支明细中输入明细,在项目总体中相应栏目自动统计相关数据,我输入了一笔,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:学院基建foxtable.table


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/7/30 17:40:00 [只看该作者]

没难懂,能否具体点?


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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/7/30 17:44:00 [只看该作者]

在收支明细中输入项目名称、项目子项、收支类别,在项目总体中按项目名称、项目子项及收支类别中统计相应的金额

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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/7/30 17:45:00 [只看该作者]

收支类别中包括财政拔款、学院拔款等类别

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2015/7/30 17:53:00 [只看该作者]

可以看看:

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


看你写的代码,可能还不能独立搞定,帮助做好了:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目74.table


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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/7/30 18:08:00 [只看该作者]

谢谢,

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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/7/30 18:11:00 [只看该作者]

进一步问一下,能否根据项目明细中发生的项目名称、项目子项,能够自动增加项目总体中项目名称、项目子项中

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


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/7/30 19:58:00 [只看该作者]

你好,你帮助我设计的代码怎么数据不动,换一次表格它都会自动计算一次。


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33945 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2015/7/30 20:42:00 [只看该作者]

切换表计算一次就行了。

 

7楼的问题。

 

收支明细表DataColChanged事件


Select Case e.DataCol.name
    Case "项目名称","项目子项"
        If e.DataRow.IsNull("项目名称") = False And e.DataRow.IsNull("项目子项") = False
            Dim dr As DataRow = DataTables("项目总体").Find("项目名称 = '" & e.DataRow("项目名称") & "' and 项目子项 = '" & e.DataRow("项目子项") & "'")
            If dr Is Nothing Then
                Dim r As Row = Tables("项目总体").AddNew
                r("项目名称") = e.DataRow("项目名称")
                r("项目子项") = e.DataRow("项目子项")
            End If
        End If
End Select


 回到顶部