关于DLOOKUP函数的用法~~~~~~~~~~~

zhdy8855

看看我对这段代码的理解是否正确~
Dim strFilter As String   
    ' 在传给 DLookup 函数之前给筛选字符串赋值。
    strFilter = "[产品ID] = " & Me!产品ID   
    ' 查找产品的单价并将它赋给“单价”控件。
Me!单价 = DLookup("[单价]", "商品资料表", strFilter)

以上代码：假设产品ID=2
如果不考虑通用性的情况下：最后一句看能用一下语句代替呢？
ME!单价=Dlookup(“[单价]”,”商品资料表”,[产品ID]=2)

zhaozyuan

原帖由 zhdy8855 于 2009-11-12 14:09 发表
看看我对这段代码的理解是否正确~
Dim strFilter As String   
    ' 在传给 DLookup 函数之前给筛选字符串赋值。
    strFilter = "[产品ID] = " & Me!产品ID   
    ' 查找产品的单价并将它赋给“单价”控件 ...

不可以 有两处错误
ME!单价=Dlookup(“[单价]”,”商品资料表”,[产品ID]=2)
1.你的这句中""错误的写为“”，肯定报错
2.[产品ID]=2,外边没有引号

zhdy8855

感谢2楼的回答，非常详细，