Foxtable(狐表)用户栏目专家坐堂 → 工资表的求助


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

主题:工资表的求助

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


加好友 发短信
等级:婴狐 帖子:14 积分:163 威望:0 精华:0 注册:2018/3/22 13:17:00
工资表的求助  发帖心情 Post By:2018/4/3 16:00:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:考勤表.xlsx

狐爸,我很想用foxtable,因为是刚刚接触,所以很多东西弄不明白,尤其是表间计算、引用,现在求助
1、工龄工资根据工龄和标准自动计算;2、每月的数据根据部门自动汇总到人力汇总表上面;3、考勤结果自动计算到出勤天数上面来,然后再计算月度实际发放。
跪了,各位大神。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/3 16:13:00 [只看该作者]

1、直接跨表引用,如

 

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

 

2、参考统计

 

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

 

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

 

3、导入你的考勤表,才能计算出勤天数。同样是跨表引用、统计的知识点

 

------------------初学foxtable,先把视频教程看一遍 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 


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


加好友 发短信
等级:婴狐 帖子:14 积分:163 威望:0 精华:0 注册:2018/3/22 13:17:00
  发帖心情 Post By:2018/4/4 10:01:00 [只看该作者]

狐爸,我先学习一下看看,不懂了就在这个帖子来问了哈

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


加好友 发短信
等级:婴狐 帖子:14 积分:163 威望:0 精华:0 注册:2018/3/22 13:17:00
  发帖心情 Post By:2018/4/8 13:44:00 [只看该作者]

Select Case e.DataCol.name
    Case "资历工资_职称工资", "资历工资_证书工资"
        If e.DataRow("资历工资_职称工资") <> Nothing AndAlso e.DataRow("资历工资_证书工资") <> Nothing Then
            Dim dic As new Dictionary(of String, DataRow)
            For Each dr As DataRow In DataTables("资历工资表").Select("职称工资_ '" & e.DataRow("资历工资_职称工资") & "'")
            Next
            
            Dim s1 = dic("职称工资_")(e.DataRow("职称工资_"))
            e.DataRow("资历工资_职称工资") = s1
            Dim s2 = dic("证书工资_")(e.DataRow("证书工资_"))
            e.DataRow("资历工资_证书工资") = s2
        
            msgbox(s1)
            msgbox(s2)
        End If
End Select

我写了这段代码,但是没有执行结果,请狐爸帮忙。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工资表.table


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/8 15:56:00 [只看该作者]

没看懂你代码表示的逻辑。想要实现什么功能?

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


加好友 发短信
等级:婴狐 帖子:14 积分:163 威望:0 精华:0 注册:2018/3/22 13:17:00
  发帖心情 Post By:2018/4/8 17:30:00 [只看该作者]

就是说当我的花名册里填写员工的职称或者证书的时候,调用资历工资表里面的标准,直接在工资发放表相应的资历工资栏里面体现相应的金额数字,谢谢

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/8 18:04:00 [只看该作者]

Select Case e.DataCol.name
    Case "姓名"
        If e.DataRow.IsNull("姓名") = False Then
            Dim dr As DataRow = DataTables("花名册").Find("姓名='" & e.DataRow("姓名") & "'")
            If dr IsNot Nothing Then
                Dim dr1 As DataRow = DataTables("资历工资表").Find("类别='" & dr("职称") & "'")
                If dr1 IsNot Nothing Then
                    e.DataRow("资历工资_职称工资") = dr1("标准")
                End If
                
                dr1  = DataTables("资历工资表").Find("类别='" & dr("证书") & "'")
                If dr1 IsNot Nothing Then
                    e.DataRow("资历工资_证书工资") = dr1("标准")
                End If
            End If
        End If
End Select

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


加好友 发短信
等级:婴狐 帖子:14 积分:163 威望:0 精华:0 注册:2018/3/22 13:17:00
  发帖心情 Post By:2018/4/9 14:04:00 [只看该作者]

不行啊,写上去以后还是调不出啊

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/9 14:12:00 [只看该作者]

以下是引用渔人码头在2018/4/9 14:04:00的发言:
不行啊,写上去以后还是调不出啊

 

填入姓名了没有?重置列了没有?

 

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

 


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


加好友 发短信
等级:婴狐 帖子:14 积分:163 威望:0 精华:0 注册:2018/3/22 13:17:00
  发帖心情 Post By:2018/5/2 15:01:00 [只看该作者]

各位前辈,我把工龄计算出来了,在关联表单里面工龄工资那一列里,使用表达式用父表的工龄*100就是工龄工资,但是如何设置,“超过10年工龄的工龄工资均为1000元”?请各位高手指教

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