DataColChanged事件
Select Case e.DataCol.Name Case "数量" e.DataRow("金额") = val(e.NewValue) * e.DataRow("单价")End Select