代码提示“缺少列表分隔符或）“，参照网站的案例没有找出问题

翟本胜　发表于：2018-08-05 07:46:01 　

复制

请教下这个函数用控件来源计算没错，写进代码提示“缺少列表分隔符或）“，参照网站的案例没有找出问题，不知道哪里的问题

Me.标准产量1 = IIf(Eval([线别] in ("XB1", "XB2", "XB3", "XB4")), [库存单位重量] * [工作时间] * 600, [库存单位重量] * [工作时间] * 900)

Top

伊西军发表于：2018-08-06 09:16:38

Eval去了试下

Top

翟本胜发表于：2018-08-06 09:27:51

去掉了Eval，还是一样的提示。

Top

仙来发表于：2018-08-06 09:36:02

没看出问题，你发一个附件

Top

翟本胜发表于：2018-08-06 09:56:05

点击下载此附件

Top

翟本胜发表于：2018-08-06 10:01:00

是这个子窗体的代码

Top

伊西军发表于：2018-08-06 10:39:21

点击下载此附件

Top

仙来发表于：2018-08-06 14:15:32

经测试下面代码可用:

Private Sub 库存单位重量_AfterUpdate()
    If Not IsNull(Me.库存单位重量) Then
        Me.产量.SetFocus
        Me.产量 = [库存单位重量] * [数量]
        Me.标准产量1.SetFocus
        Me.标准产量1 = IIf(Eval("'"& [线别] &"' in ('A1','A2', 'A3','A4')"), NZ([库存单位重量]) * NZ([工作时间] )* 600, NZ([库存单位重量] )* NZ([工作时间] )* 900)
    End If
End Sub

或控件来源=IIf(Eval([线别] In ("A1","A2","A3","A4")),[库存单位重量]*[工作时间]*600,[库存单位重量]*[工作时间]*900)

Top

翟本胜发表于：2018-08-07 10:09:13

感谢两位的方案，我想用代码可以直接保存到后台表里，但是用代码还是计算不了，直接用下面的代码又计算太慢

Private Sub 标准产量1_AfterUpdate()
Me.标准产量1 = IIf(Eval("'" & [线别] & "' in ('A1','A2', 'B1','B2')"), Nz([库存单位重量]) * Nz([工作时间]) * 1200, Nz([库存单位重量]) * Nz([工作时间]) * 600)

End Sub

点击下载此附件

Top

仙来发表于：2018-08-07 16:48:54

不太懂。

标准产量1更新后事件可激发其它控件。应清楚标记的两个控件不在同一个窗体。

Top

翟本胜发表于：2018-08-11 08:59:29

可以了，我还是用控件来源计算，数据不保存到表里，查询也能显示数据。

Top

翟本胜发表于：2018-08-11 09:01:20

谢谢你的关注和解决方案。

Top

总记录：11篇页次：1/1 9 1 :

Access交流中心

代码提示“缺少列表分隔符或）“，参照网站的案例没有找出问题