求救，急死我了，这个代码错在哪里？

laiguiyou

我在产品代号更新后事件里写：

产品名称.Value = DLookup("[产品名称]", "产品表", "[产品代号]='" & 产品代号.Value & "'")



if Me.工序名称 = "开模" Then

单价.Value = DLookup("[开模]", "产品表", "[产品代号]='" & 产品代号.Value & "'")

End If

请教各位，这段代码错在哪里？

方漠

设置好关系用查询，而不是DLOOKUP。

laiguiyou

在这里很查询可能无法实现，因为每个产品有十几个工序，每个工序的单价又不同用Dlookup会方便些

Trynew

产品名称.Value = DLookup("[产品名称]", "产品表", "[产品编号]=" & 产品代号.Value )



单价.Value = DLookup(Me.工序名称, "产品表", "[产品编号]=" & 产品代号.Value )



要注意查阅型字段[产品代号]显示的值和实际的值不同，产品代号.Value 是538，即产品的编号。

另外也不需要用那么多条件语句判断工序名称。

laiguiyou

谢谢，解决了我的问题，这样的代码很简洁，多向你学习

静儿

还能再简单一些的。单价= DLookup(Me.工序名称, "产品表", "[产品编号]=" & 产品代号)

laiguiyou

谢谢静儿