求助 紧急为“是”的情况下，合计自动增加20%，怎么弄呀

解决方法：

Option Compare Database

Option Explicit


Private Sub Combo9_AfterUpdate()
    Me.Combo12 = ""
    Me.Combo12.Requery
End Sub


Private Sub cailiao_AfterUpdate()
Me.heji = [chailv] + [rengong] + [cailiao] + [qita] + [zonghe]
End Sub


Private Sub chailv_AfterUpdate()
Me.heji = [chailv] + [rengong] + [cailiao] + [qita] + [zonghe]
End Sub


Private Sub Combo32_AfterUpdate()
Me.heji.SetFocus
If Me.Combo32 = "是" Then Me.heji = Me.heji.Text * 1.2
If Me.Combo32 = "否" Then Me.heji = [chailv] + [rengong] + [cailiao] + [qita] + [zonghe]
End Sub


Private Sub qita_AfterUpdate()
Me.heji = [chailv] + [rengong] + [cailiao] + [qita] + [zonghe]
End Sub


Private Sub rengong_AfterUpdate()
Me.heji = [chailv] + [rengong] + [cailiao] + [qita] + [zonghe]
End Sub


Private Sub zonghe_AfterUpdate()
Me.heji = [chailv] + [rengong] + [cailiao] + [qita] + [zonghe]
End Sub