- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 所得税求解 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=66178)
-- 发布时间：2015/3/31 16:33:00
-- 所得税求解
老师：你好！
附件中的税率表输入政策变化后的个人所得税纳税所得额、税率、速算扣除数。工资表中要求：按输入的日期和纳税所得额的变化自动从税率表中选取适用的税率和速算扣除数。
请帮助修改代码。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:提醒(1).table |
-- 发布时间：2015/3/31 16:45:00
--
Datacolchanged事件代码
[此贴子已经被作者于2015/3/31 16:48:07编辑过]
-- 发布时间：2015/3/31 16:46:00
--
参考帮助
-- 发布时间：2015/3/31 16:48:00
--
If e.DataCol.Name = "日期" OrElse e.DataCol.Name = "纳税所得额" Then
If e.DataRow.IsNull("日期") OrElse e.DataRow.IsNull("纳税所得额") Then
e.DataRow("税率") = Nothing
e.DataRow("纳税所得额") = Nothing
e.DataRow("速算扣除数") = Nothing
Else
Dim fdr As DataRow = DataTables("税率表").Find("日期 <= #" & e.NewValue & "# and 纳税所得额 <= " & e.DataRow("纳税所得额"), "日期 desc, 纳税所得额 desc")
If fdr IsNot Nothing Then
e.DataRow("税率") = fdr("税率")
e.DataRow("速算扣除数") = fdr("速算扣除数")
End If
End If
End If
-- 发布时间：2015/4/1 8:34:00
--
以下代码出现二个提示：
1、标准表达式中数据类型不匹配。
烦请修改一下！
思路是：建立一个税率表以应对政策变化，当政策变化后，工资表中的税率和速算扣除数，根据日期和纳税所得额在税率表中自动查找并赋值与工资表用于计算。这样不用InTax函数就可以适应变化了。
-- 发布时间：2015/4/1 8:43:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:提醒(1) (1).table |
-- 发布时间：2015/4/1 9:09:00
--
老师：你的版本太高，我这里没法打开，能否上传代码？
-- 发布时间：2015/4/1 9:10:00
--
升级到最新版才能打开。
-- 发布时间：2015/4/1 9:14:00
--
我还没有续费
-- 发布时间：2015/4/1 9:18:00
--
那你就另外找一台电脑安装试用版打开项目。