求助：利用按钮事件怎么实现个人所得税的计算，并自动赋值到1到12月的个人所得税列里。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求助：利用按钮事件怎么实现个人所得税的计算，并自动赋值到1到12月的个人所得税列里。

要求当月份输入了12以后自动进行如下：

实现年个人所得税= （（（利润总和+业主工资总和）-14200）*0.35）+20250

然后对应计算月个人所得税为年个人所得税除以12

并赋值到1到12月的个人所得税列里

此主题相关图片如下：12.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:创业计划书06170012.rar

这个是按钮事件代码，能够实现个税计算，但是不能对应到1到12月的个人所得税列里求修改代码，实现个人所得税列值全部等于12月份计算的数据

Dim r As Row =Tables("企业概况.销售和成本计划表").Current

Dim Sum1 As Double

Sum1 = Tables("销售和成本计划表").Compute("Sum(成本_业主工资)")

Dim Sum2 As Double

Sum2 = Tables("销售和成本计划表").Compute("Sum(利润)")

r("税费_个人所得税")=((((sum1+sum2)-14200)*0.35)+20250)/12

[此贴子已经被作者于2014-6-24 2:00:23编辑过]

主题：求助：利用按钮事件怎么实现个人所得税的计算，并自动赋值到1到12月的个人所得税列里。