主题：[求助]跨表提取个税率和扣除数的代码

老师好。根据“实发工资”，跨表从“个人所得税预扣率表A”提取符合的税率、速算扣除数，并分别写入“个税率”和“速算扣除数”这两列。但代码不对，请老师帮助指正。谢谢。

老师好。请老师帮助指导。谢谢。

Select Case e.DataCol.name
    Case "实发工资","预扣税率","速算扣除数"     '
        If e.DataRow.IsNull("实发工资") Then        '
            e.DataRow("速算扣除数") = Nothing     '
        Else
            Dim Ljy As String = e.DataRow("实发工资")  '
            Dim Yksl As DataRow = DataTables("个人所得税预扣率表A").Find("累计应纳税所得额>=" & ljy, "累计应纳税所得额")
            If Yksl IsNot Nothing Then
                e.DataRow("速算扣除数") = Yksl("速算扣除数")
            Else
                e.DataRow("速算扣除数") = Nothing
            End If
        End If
End Select

谢谢老师。

老师好。再请教老师，如何将下面【判断发生变动列】的相关代码去掉，改为随时根据“累计应纳税所得额”列的数值变化随时计算提取“税率” 和 “速算扣除数” 。l因为需要计算和输入的列太多，有手工输入数值的列、有跨表取数的列、还有表达式计算列，如果其中只要有一列不写入【判断发生变动列】代码中，则计算提取“税率” 和 “速算扣除数”的代码就不运行。

改成

 

Select Case e.DataCol.name
    Case "速算扣除数"
    Case Else
        Dim Ljy As String = e.DataRow("实发工资")  '
        Dim Yksl As DataRow = DataTables("个人所得税预扣率表A").Find("累计应纳税所得额>=" & ljy, "累计应纳税所得额")
        If Yksl IsNot Nothing Then
            e.DataRow("速算扣除数") = Yksl("速算扣除数")
        Else
            e.DataRow("速算扣除数") = Nothing
        End If
End Select