- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 工资表的求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116967)
-- 发布时间：2018/4/3 16:00:00
-- 工资表的求助
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤表.xlsx |
狐爸，我很想用foxtable，因为是刚刚接触，所以很多东西弄不明白，尤其是表间计算、引用，现在求助
1、工龄工资根据工龄和标准自动计算；2、每月的数据根据部门自动汇总到人力汇总表上面；3、考勤结果自动计算到出勤天数上面来，然后再计算月度实际发放。
跪了，各位大神。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：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
-- 发布时间：2018/4/4 10:01:00
--
狐爸，我先学习一下看看，不懂了就在这个帖子来问了哈
-- 发布时间：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 |
-- 发布时间：2018/4/8 15:56:00
--
没看懂你代码表示的逻辑。想要实现什么功能？
-- 发布时间：2018/4/8 17:30:00
--
就是说当我的花名册里填写员工的职称或者证书的时候，调用资历工资表里面的标准，直接在工资发放表相应的资历工资栏里面体现相应的金额数字，谢谢
-- 发布时间：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
-- 发布时间：2018/4/9 14:04:00
--
不行啊，写上去以后还是调不出啊
-- 发布时间：2018/4/9 14:12:00
--
以下是引用渔人码头在2018/4/9 14:04:00的发言：
不行啊，写上去以后还是调不出啊
不行啊，写上去以后还是调不出啊
填入姓名了没有？重置列了没有？
http://www.foxtable.com/webhelp/scr/1469.htm
-- 发布时间：2018/5/2 15:01:00
--
各位前辈，我把工龄计算出来了，在关联表单里面工龄工资那一列里，使用表达式用父表的工龄*100就是工龄工资，但是如何设置，“超过10年工龄的工龄工资均为1000元”？请各位高手指教