Select Case e.DataCol.Name
Case "数量"
SystemReady = False
If e.DataRow.isnull("数量") = False Then
If e.DataRow.IsNull("价税合计") Then
e.DataRow("价税合计") = e.DataRow("单价") * e.DataRow("数量")
ElseIf e.DataRow.isnull("单价") Then
e.DataRow("单价") = e.DataRow("价税合计") / e.DataRow("数量")
Else
e.DataRow("价税合计") = e.DataRow("单价") * e.DataRow("数量")
End If
End If
SystemReady = True
Case "单价"
SystemReady = False
If e.DataRow.isnull("单价") = False Then
If e.DataRow.IsNull("价税合计") Then
e.DataRow("价税合计") = e.DataRow("单价") * e.DataRow("数量")
ElseIf e.DataRow.isnull("数量") Then
e.DataRow("数量") = e.DataRow("价税合计") / e.DataRow("单价")
Else
e.DataRow("价税合计") = e.DataRow("单价") * e.DataRow("数量")
End If
End If
SystemReady = True
Case "价税合计"
SystemReady = False
If e.DataRow.isnull("价税合计") = False Then
If e.DataRow.IsNull("单价") Then
If e.DataRow.IsNull("数量") = False Then
e.DataRow("单价") = e.DataRow("价税合计") / e.DataRow("数量")
End If
ElseIf e.DataRow.isnull("数量") Then
If e.DataRow.IsNull("单价") = False Then
e.DataRow("数量") = e.DataRow("价税合计") / e.DataRow("单价")
End If
Else
If e.DataRow.IsNull("数量") = False Then
e.DataRow("单价") = e.DataRow("价税合计") / e.DataRow("数量")
End If
End If
End If
'--------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------
SystemReady = True
End Select
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