主题：请教表格单元格计算

DataColChanged事件

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