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.isnull("税率") = False Then
If e.DataRow.IsNull("金额") Then
e.DataRow("金额") = e.DataRow("税金") / (e.DataRow("税率")-1)
ElseIf e.DataRow.isnull("税金") Then
e.DataRow("税金") = e.DataRow("金额") * (e.DataRow("税率")-1)
Else
e.DataRow("税金") = e.DataRow("金额") * (e.DataRow("税率")-1)
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("税率")-1)
End If
ElseIf e.DataRow.isnull("税率") Then
If e.DataRow.isnull("金额") = False Then
e.DataRow("税率") = e.DataRow("税金") / e.DataRow("金额") + 1
End If
Else
If e.DataRow.isnull("税率") = False Then
e.DataRow("金额") = e.DataRow("税金") / (e.DataRow("税率")-1)
End If
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("税率")-1)
End If
ElseIf e.DataRow.isnull("税率") Then
e.DataRow("税率") = e.DataRow("税金") / e.DataRow("金额") + 1
Else
If e.DataRow.isnull("税率") = False Then
e.DataRow("税金") = e.DataRow("金额") * (e.DataRow("税率")-1)
End If
End If
End If
SystemReady = True
End Select