代码太多我复制了些主要的代码如下:
For Each dc As DataCol In e.DataTable.DataCols
If dc.name.Contains("简易") = False Then
If e.DataRow("正数是应交税额负数是留抵税额") < 0 Then
e.DataRow("应交税额") = Nothing
Else
e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额")
e.DataRow("城建税") = Round2(e.DataRow("应交税额") * 0.05 , 2)
e.DataRow("教育费") = round2(e.DataRow("应交税额") * 0.03 , 2)
e.DataRow("地方教育费") = round2(e.DataRow("应交税额") * 0.02 , 2)
End If
Else
If e.DataRow("正数是应交税额负数是留抵税额") < 0 Then
e.DataRow("应交税额") = e.DataRow("简易销项税额")
e.DataRow("城建税") = Round2(e.DataRow("应交税额") * 0.05 , 2)
e.DataRow("教育费") = round2(e.DataRow("应交税额") * 0.03 , 2)
e.DataRow("地方教育费") = round2(e.DataRow("应交税额") * 0.02 , 2)
Else
MessageBox.Show(e.DataRow("正数是应交税额负数是留抵税额")) 问题一:结果正确显示并跳出来4遍,下同
MessageBox.Show(e.DataRow("简易销项税额"))
e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额") + e.DataRow("简易销项税额") '问题一:结果正确显示三次,最后一次即最终的却只显示第一个对话框的值'
e.DataRow("城建税") = Round2(e.DataRow("应交税额") * 0.05 , 2)
e.DataRow("教育费") = round2(e.DataRow("应交税额") * 0.03 , 2)
e.DataRow("地方教育费") = round2(e.DataRow("应交税额") * 0.02 , 2)
End If
End If
Next