Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求和计算使用求助


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

主题：求和计算使用求助
帅哥哟，离线，有人找我吗？
ntcsm
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：115 积分：789 威望：0 精华：0 注册：2023/3/19 16:41:00 		求和计算使用求助  发帖心情 Post By：2023/12/3 14:38:00 [只看该作者]

想整一张表A   ，简单计算
姓名            工时            部门奖金
张三             10                 20
李四             20                 40    
部门             30                 60
思路：部门行工时为部门内人员的总工时，并且总工时等于部门员工个人工时之和，部门奖金为批发奖金额
        姓名行工时为部门内部员工个人工时，部门奖金为个人工时除以部门总工时再乘以部门奖金，即奖金按工时平均发放
我是应用小白，对照书本《开发宝典》，没能搞清楚，请问如何实现？
谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/3 20:26:00 [只看该作者]

请上传实例说明。并给出正确结果做参考

 回到顶部
帅哥哟，离线，有人找我吗？
ntcsm
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：115 积分：789 威望：0 精华：0 注册：2023/3/19 16:41:00 		  发帖心情 Post By：2023/12/4 15:08:00 [只看该作者]

谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:奖金.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 15:13:00 [只看该作者]

还是没搞懂，这种例子无法反应和处理您说的问题。

如果只是简单的数据合计，做个合计就行了：http://www.foxtable.com/webhelp/topics/2748.htm
 回到顶部
帅哥哟，离线，有人找我吗？
ntcsm
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：115 积分：789 威望：0 精华：0 注册：2023/3/19 16:41:00 		  发帖心情 Post By：2023/12/4 17:25:00 [只看该作者]

我是要实现姓名行输入部门内人员姓名，工时，而在部门行自动生成部门总工时
在部门行奖金单元，输入批复奖金额后，又能在部门人员行按工时平均自动生成奖金，每个人每小时奖金额都相同
就相当于一张电子表格
[此贴子已经被作者于2023/12/4 17:25:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 17:33:00 [只看该作者]

这个表格设计不合理。应该增加一个部门列，记录哪个人员是哪个部门的。然后需要的时候做个分组统计即可：http://www.foxtable.com/webhelp/topics/0158.htm

 回到顶部
帅哥哟，离线，有人找我吗？
ntcsm
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：115 积分：789 威望：0 精华：0 注册：2023/3/19 16:41:00 		  发帖心情 Post By：2023/12/4 19:42:00 [只看该作者]

我是要一个部门奖金按工时发放表

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/12/4 20:36:00 [只看该作者]

没有理解您的业务，不知道到底需要什么。

 回到顶部
帅哥，在线噢！
y2287958
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4759 积分：34603 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2023/12/5 9:24:00 [只看该作者]

If e.DataCol.Name = "工时" Then
    If e.DataRow("姓名") <> "部门" Then
        Dim dr As DataRow = e.DataTable.Find("姓名='部门'")
        If dr IsNot Nothing Then
            dr("工时") = e.DataTable.Compute ("Sum(工时)", "姓名<>'部门' and 姓名 is not null")
        End If 
    End If
End If

If e.DataCol.Name = "奖金" AndAlso e.DataRow("姓名") = "部门" Then
    Dim dr As DataRow = e.DataTable.Find("姓名='部门'")
    If dr.IsNull ("奖金") = False AndAlso dr.IsNull ("工时") = False Then
        Dim 工时奖金 As Decimal = dr("奖金") / dr("工时")
        For Each sdr As DataRow In e.DataTable.Select ("姓名<>'部门' and 姓名 is not null")
            sdr("奖金") = sdr("工时") * 工时奖金
        Next 
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
ntcsm
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：115 积分：789 威望：0 精华：0 注册：2023/3/19 16:41:00 		  发帖心情 Post By：2023/12/5 15:08:00 [只看该作者]

谢谢
将此作为工作表用，好多了，省的表格很多
[此贴子已经被作者于2023/12/5 15:24:31编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07617 秒, 5 次数据查询