Select Case e.DataCol.Name
Case "A","B"
SystemReady = False
e.DataRow("C") = e.DataRow("A") * e.DataRow("B")
If e.DataRow("B") <> 0 Then
e.DataRow("D") = e.DataRow("A") / e.DataRow("B")
End If
SystemReady = True
Case "C", "D"
SystemReady = False
e.DataRow("A") = e.DataRow("C") + e.DataRow("D")
e.DataRow("B") = e.DataRow("C") - e.DataRow("D")
SystemReady = True
End Select