老师好。根据“实发工资”，跨表从“个人所得税预扣率表A”提取符合的税率、速算扣除数，并分别写入“个税率”和“速算扣除数”这两列。但代码不对，请老师帮助指正。谢谢。
Select Case e.DataCol.name
Case "实发工资","预扣税率","速算扣除数" '
If e.DataRow.IsNull("实发工资") Then '
e.DataRow("扣个税") = Nothing '
e.DataRow("速算扣除数") = Nothing '
Else
Dim Ljy As String = e.DataRow("实发工资") '
Dim Yksl As DataRow = DataTables("个人所得税预扣率表A").Find("累计应纳税所得额='" & e.DataRow("累计应税所得额") & "' And 最小值 < " & Ljy & " and 最大值 >= " & Ljy)
If Yksl IsNot Nothing Then
e.DataRow("预扣税率") = Yksl("预扣税率")
e.DataRow("速算扣除数") = Yksl("速算扣除数")
Else
e.DataRow("预扣税率") = Nothing
e.DataRow("速算扣除数") = Nothing
End If
End If
End Select
[此贴子已经被作者于2019/4/14 16:24:49编辑过]
加好友 
发短信
Post By：2019/4/13 17:56:00 [只看该作者]
