DLOOKUP 问题

LIXIANACCP

如:Me.当前库存 = DLookup("[库存量]", "库存量查询", "[货号]= '" & Str & "'")

其中"库存量查询"条件列中设置了查询条件的,该句子有否不出错呢?(我试过删除条件后,正常.有条件就不行)

能否做到设置了条件也行吗?

一点通

Str是从哪里来的?格式与货号的格式相同吗？

LIXIANACCP

以下是引用一点通在2006-8-21 8:49:00的发言：
Str是从哪里来的?格式与货号的格式相同吗？

窗体点树后(货品),出错!

一点通

查询出错,请按以下代码修改

SELECT DISTINCTROW [进出库 查询].货号, [进出库 查询].品名, [进出库 查询].规格, Sum([进出库 查询].入库数量) AS 入库数量总计, Sum([进出库 查询].入库金额) AS 入库金额总计, Sum([进出库 查询].出库数量) AS 出库数量总计, Sum([进出库 查询].出库金额) AS 出库金额总计, NZ([入库数量总计]-[出库数量总计]) AS 库存量, NZ([入库金额总计]-[出库金额总计]) AS 库存额, IIf([库存量]=0 Or [库存额]=0,0,[库存额]/[库存量]) AS 库存单价, Left([货号],2) AS 类别
FROM [进出库 查询]
GROUP BY [进出库 查询].货号, [进出库 查询].品名, [进出库 查询].规格
HAVING ((([进出库 查询].品名) Like IIf(IsNull([Forms]![入库录入]![品名]),"*","*" & [Forms]![入库录入]![品名] & "*")) AND (([进出库 查询].规格) Like IIf(IsNull([Forms]![入库录入]![规格]),"*","*" & [Forms]![入库录入]![规格] & "*")) AND ((Left([货号],2)) Like IIf(IsNull([Forms]![入库录入]![类别]),"*","*" & [Forms]![入库录入]![类别] & "*")));

LIXIANACCP

以下是引用一点通在2006-8-21 10:11:00的发言：


查询出错,请按以下代码修改

SELECT DISTINCTROW [进出库 查询].货号, [进出库 查询].品名, [进出库 查询].规格, Sum([进出库 查询].入库数量) AS 入库数量总计, Sum([进出库 查询].入库金额) AS 入库金额总计, Sum([进出库 查询].出库数量) AS 出库数量总计, Sum([进出库 查询].出库金额) AS 出库金额总计, NZ([入库数量总计]-[出库数量总计]) AS 库存量, NZ([入库金额总计]-[出库金额总计]) AS 库存额, IIf([库存量]=0 Or [库存额]=0,0,[库存额]/[库存量]) AS 库存单价, Left([货号],2) AS 类别
FROM [进出库 查询]
GROUP BY [进出库 查询].货号, [进出库 查询].品名, [进出库 查询].规格
HAVING ((([进出库 查询].品名) Like IIf(IsNull([Forms]![入库录入]![品名]),"*","*" & [Forms]![入库录入]![品名] & "*")) AND (([进出库 查询].规格) Like IIf(IsNull([Forms]![入库录入]![规格]),"*","*" & [Forms]![入库录入]![规格] & "*")) AND ((Left([货号],2)) Like IIf(IsNull([Forms]![入库录入]![类别]),"*","*" & [Forms]![入库录入]![类别] & "*")));

改完后出现循环引用错误!查询结果是否与原来的联合查询结果一样,现在不知,---因运行不了!

一点通

请认真检查一下变量的来源,不要引用不存在的窗体或查询

LIXIANACCP

以下是引用一点通在2006-8-21 12:14:00的发言：


请认真检查一下变量的来源,不要引用不存在的窗体或查询

查询已不能运行了!

只有2个简单的表!"循环引用"应该错在你提供的这段代码!不过我查不出来!

一点通

何来的库存量查询?



Private Sub TreeView_NodeClick(ByVal Node As Object)
'* -----------------------------------------------------------------
'*树控件的鼠标点击事件为NodeClick
'* -----------------------------------------------------------------
Dim Str As String
Dim Rs As New ADODB.Recordset
Dim Rsc As New ADODB.Recordset
Dim Rstem As New ADODB.Recordset
'* -----------------------------------------------------------------
'*如果不是点在树的最末端，不显示数量及单价的字段
'* -----------------------------------------------------------------
Debug.Print Node.Key
If Node.Text = "货品" Or Node.Key Like "父*" Then
Me.规格.Visible = False
Me.货号.Visible = False
Me.品名.Visible = False
Me.单位.Visible = False
Me.金额.Visible = False
Me.摘要说明.Visible = False
Me.入库单号.Visible = False
Me.供应商.Visible = False
Me.入库数量.Visible = False
Me.入库单价.Visible = False
Me.货位.Visible = False
Me.当前库存.Visible = False

Str = ""
Else
'还原货号,货号必须是固定长度,这里取7位
Str = Left(Mid(Node.Key, 2, Len(Node.Key) - 1), 7)

Me.货号 = Str
Me.品名 = DLookup("[品名]", "货品档案", "[货号]= '" & Str & "'")
Me.规格 = DLookup("[规格]", "货品档案", "[货号]= '" & Str & "'")
Me.货位 = DLookup("[货位]", "货品档案", "[货号]= '" & Str & "'")
'Me.当前库存 = DLookup("[库存量]", "库存量查询", "[货号]= '" & Str & "'") 问题出在这一句
Me.规格.Visible = True
Me.货号.Visible = True
Me.品名.Visible = True
Me.单位.Visible = True
Me.金额.Visible = True
Me.摘要说明.Visible = True
Me.供应商.Visible = True
Me.入库数量.Visible = True
Me.入库单价.Visible = True
Me.货位.Visible = True
Me.当前库存.Visible = True
End If
Call 当前库存_BeforeUpdate(True)
End Sub

[此贴子已经被作者于2006-8-21 13:30:20编辑过]

LIXIANACCP

同样的代码结构,怎么入库录入窗体不出错,而出库录入窗体会出错呢?[em06]

[此贴子已经被作者于2006-8-28 13:18:17编辑过]

fan0217

'Me.当前库存 = DLookup("[库存量]", "库存量查询", "[货号]= '" & Str & "'") 问题出在这一句


这个不以你变量声明的类型为准，而是以数据表中的数据类型为准，仔细检查。