请帮我修改一下这句语法

中原一剑　发表于：2013-02-26 22:57:34 　

Private Sub 供应商_AfterUpdate()
销售单价折扣 = DLookup("销售单价折扣", "折扣点明细情况", "供应商='" & [供应商] & "'" And "类别='" & [类别] & "'")
End Sub

Private Sub 供应商_LostFocus()
销售单价折扣 = DLookup("销售单价折扣", "折扣点明细情况", "供应商='" & [供应商] & "'" And "类别='" & [类别] & "'")
End Sub

煮江品茶发表于：2013-02-27 12:55:02

me.销售单价折扣.value = DLookup("销售单价折扣", "折扣点明细情况", "供应商='" & me.供应商.value & "' And 类别='" & me.类别.value & "'")

总记录：1篇页次：1/1 9 1 :

Access交流中心