销售单窗体中想调用价格查询中的价格，结果全部都是“4.4”！！大侠们救命啊！

boy8848

Me.单价 = CCur(DLookup("[吨价]", "SS-最新价格查询L", "产品编号='" & Me.产品编号 & "'") / 1000)


库中建有两个新价格查询“SS-最新价格查询L”和“SS-最新价格查询”，用上述语句中用前一个查询结果销售单子窗体中的单价全部都是“4.4”。[em06]用后一个显示数据类型不匹配。

我快死了……谁来救救我……

[此贴子已经被作者于2006-12-4 16:49:31编辑过]

boy8848

问题搞定，真是太感谢牛虫老师了！！[em07]

qlm

首先，"SS-最新价格查询L”语句要改为如下：

SELECT P产品5明细表.产品ID AS 编号, Max([SS-销售价格扩展查询].实施日期) AS 实施日期, Last([SS-销售价格扩展查询].吨价) AS 吨价
FROM [SS-销售价格扩展查询] INNER JOIN P产品5明细表 ON [SS-销售价格扩展查询].产品编号 = P产品5明细表.产品ID
GROUP BY P产品5明细表.产品ID;


然后改VBA如下：

Private Sub 产品编号_AfterUpdate()
    If IsNull([产品编号]) Then Exit Sub
    Me.单价 = DLookup("吨价", "SS-最新价格查询L", "编号=" & Me.产品编号) / 1000
End Sub

如果我没有理解错的话。