Select Case e.DataCol.Name
Case "税率"
SystemReady = False
If e.DataRow("税率") > 0 Then
e.DataRow("金额") = e.DataRow("价税合计") / e.DataRow("税率")
e.DataRow("税金") = e.DataRow("价税合计") - e.DataRow("金额")
End If
SystemReady = True
Case "税金"
SystemReady = False
If e.DataRow.isnull("税金") = False Then
e.DataRow("金额") = e.DataRow("价税合计") - e.DataRow("税金")
If e.DataRow("金额") > 0 Then
e.DataRow("税率") = e.DataRow("价税合计") / e.DataRow("金额")
End If
End If
SystemReady = True
Case "金额"
SystemReady = False
If e.DataRow.isnull("金额") = False Then
e.DataRow("税金") = e.DataRow("价税合计") - e.DataRow("金额")
If e.DataRow("金额") > 0 Then
e.DataRow("税率") = e.DataRow("价税合计") / e.DataRow("金额")
End If
End If
SystemReady = True
End Select
加好友 
发短信
Post By：2018/1/29 23:03:00 [显示全部帖子]
