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


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

主题：工资表的求助
帅哥哟，离线，有人找我吗？
渔人码头
 小大  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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：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


加好友 发短信
等级：超级版主 帖子：110738 积分：563610 威望：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 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 6 次数据查询