主题：[原创]

很显然,DataColChanged代码有死循环. 这么长得代码要找到哪里死循环.要点时间.

if e.datacol.name ="应发工资A" then

If dr("应发工资A") <= dr("应扣项") Then

    dr("应发工资") = Nothing

    dr("应扣保险") = Nothing

End If

 

If dr("应发工资A") >= 7000 Then

       dr("应税工资") = 3500 - dr("应扣保险")

       dr("现金发放") = dr("应发工资A") - 7000

       dr("实发工资") = 7000 - dr("应扣保险") - dr("所得税")

       dr("应发工资") = 7000

       dr("奖金A") = dr("奖金") - dr("应发工资A") + 7000

   ElseIf dr("应发工资A") >=3500 Then

        dr("应税工资") = dr("应发工资A") - dr("应扣保险") - 3500

        dr("应发工资") = dr("应发工资A")

        dr("实发工资") = dr("应发工资") - dr("应扣保险") - dr("所得税")

        dr("现金发放") = Nothing

        dr("奖金A") = dr("奖金")

   ElseIf dr("应发工资A") <3500 Then

         dr("应税工资") = Nothing

         dr("应发工资") = dr("应发工资A")

        dr("实发工资") = dr("应发工资A") - dr("应扣保险")

        dr("现金发放") = Nothing

        dr("奖金A") = dr("奖金")              

End If

end if

试试看