标题：数量和单价变化时，能自动算出金额，如果金额变化，自动算出单价怎么实现

DataColChanged事件：

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "数量","单价"

SystemReady = False
dr("金额") = dr("数量") * dr("单价")
SystemReady = True
End Select

Select Case e.DataCol.Name
    Case "数量","金额"

SystemReady = False

if dr("数量") = 0

dr("单价") = nothing

else
dr("单价") = dr("金额") / dr("数量")

end uf
SystemReady = True
End Select