DataColChanged事件
Dim dr As DataRow = e.DataRowIf e.DataCol.name = "需要数量" Then dr("申购数量") = Tables("包材申购窗体_包材申请表").current("订单数量") * dr("需要数量")End If