这个“二义性”代码的问题该如何解决？

牛先生　发表于：2010-05-25 09:36:52 　

运行窗体时，出现提示而易行的错误，我将“ Private Sub 产品ID_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate
”这些都删除掉以后，还是不行。请各位老师指点一下，下面是出现错误的代码：

Private Sub 产品ID_AfterUpdate()
On Error GoTo Err_ProductID_AfterUpdate

    Dim strFilter As String

    ' 在传给 DLookup 函数之前给筛选字符串赋值。
    strFilter = "[产品ID] = " & Me!产品ID

    ' 查找产品的单价并将它赋给“单价”控件。
    Me!工费单价 = DLookup("[工费标准]", "工资标准表", strFilter)

Exit_ProductID_AfterUpdate:
Exit Sub

Err_ProductID_AfterUpdate:
MsgBox Err.Description
Resume Exit_ProductID_AfterUpdate

End Sub

Top

竹笛发表于：2010-05-25 09:50:49

一般来说，是因为你的代码中存在相同的过程名称，只需要删除其中一个就可以了。

Top

牛先生发表于：2010-05-25 09:54:40

竹笛老师你说的对，但是我不知道该如何编写这个代码了。

Top

jia 发表于：2010-05-25 10:12:33

如能将原件上传一下就会有更多的人帮助你