Select Case e.DataCol.Name
Case "数量","金额"
SystemReady = False
If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("金额")
e.DataRow("单价")= Nothing
Else
e.DataRow("单价") = e.DataRow("金额") / e.DataRow("数量")
End If
SystemReady = True
End Select
Select Case e.DataCol.Name
Case "数量","单价"
SystemReady = False
If e.DataRow.IsNull("数量") OrElse e.DataRow.IsNull("单价")
e.DataRow("金额")= Nothing
Else
e.DataRow("金额") = e.DataRow("数量") * e.DataRow("单价")
End If
SystemReady = True
End Select