蓝老师:我用代码计算,首先录入汇率就进入死循环,我知道大概是被除数汇率作为分母的问题,
现在的用法将汇率作为最后录入,才不进入死循环。 求解?
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "汇率","采购成本含税价","增值税税率","采购成本不含税价折算美元"
If dr.IsNull("采购成本含税价") Then
dr("采购成本不含税价折算美元") = Nothing
End If
If dr("增值税税率")=0 Then
dr("采购成本不含税价折算美元") = dr("采购成本含税价") /dr("汇率")
End If
If dr("增值税税率")<>0 Then
dr("采购成本不含税价折算美元") = dr("采购成本含税价")/1.13 /dr("汇率")
End If
End Select