主题：个税扣款计算

狐狸爸爸，我传上了，麻烦你帮我看下，工资核算窗口，6-9行，

再传下例子~~

在哪里呢，我没有看到啊。

 

如何上传文件：

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

 添加附件 上传附件 错误：请不要重复提交！ 今天还可上传46个------传了两遍 了，流程没错为啥都没上去，狐狸爸爸能加下QQ吗？我的是892846575，验证码“詹”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人事管理系统.rar

能否介绍一下,问题出在哪里.要操作哪里和那里. 你想实现的效果是什么?

工资核算窗口，社保扣款列，如果先把工资输进去，再输社保（另外一张明细表，自动带入工资表），个税就不会自动计算; 如果先把社保输进去，再输工资，个税就才可以自动计算。

想实现无论先输入哪个数据，个税都能立刻更新~~！

这就是子表触父表事件的问题，在2014版的帮助有讲述：

 

http://www.foxtable.com/help2/topics/2381.htm

 

父表（人事）的DataColChanged事件代码改为：

Select Case e.DataCol.name
    Case "基本工资","绩效考核","津贴\加给\补贴","全勤","加班费1","加班费2","其他补贴","绩效考核扣款","地方税扣款","事假扣款","病假扣款","全勤扣款","公积金代扣","社保代扣","工资分配"
        If e.DataRow("工资分配") <> "外籍管理工资"
            If e.DataCol.Name <> "个人所得税代扣" AndAlso e.DataCol.IsNumeric Then
                e.DataRow("个人所得税代扣") = InTax(e.DataRow("税前工资") - 3500)
                If e.DataRow("个人所得税代扣") < 1 Then
                    e.DataRow("个人所得税代扣") = 0
                End If
            End If
        End If
End Select

 

子表（社保）的Datacolchanged事件加上代码：

 

Select Case e.DataCol.name
    Case "基本养老","失业","工伤","生育","基本医疗","小计","基本养老个人","失业个人","基本医疗个人","个人缴纳","个人缴纳","合计","大病"
         Dim pr As DataRow = e.DataRow.GetParentRow("人事")
        If pr IsNot Nothing Then
            DataTables("人事").DataCols("加班费1").RaiseDataColChanged(pr)
        End If
End Select