下面代码中的数量、单价、金额分别是窗体里面的控件名称。
' 数量控件的更新事件
Private Sub 数量_AfterUpdate()
If Me.单价 <> "" And Me.数量 <> "" Then
Me.金额 = Me.单价 * Me.数量
Else
Me.金额 = ""
End If
End Sub
' 单价控件的更新事件
Private Sub 单价_AfterUpdate()
If Me.单价 <> "" And Me.数量 <> "" Then
Me.金额 = Me.单价 * Me.数量
Else
Me.金额 = ""
End If
End Sub
温馨提示:答案为网友推荐,仅供参考