dlookup为什么不行了

chengweibing

If (DLookup("[卡号级别]", "读者信息表", "[卡号]='" & [Forms]![归还窗口]![文本0] & "'")) = "金卡" Then
   Dim hy1 As Integer  '定义一个变量
   hy1 = (DLookup("[借阅费用]", "借阅费用表", "[卡号级别]='金卡'"))  '将"借阅费用表"中卡号级别为金卡的借阅费用附值给变量hy1
   Me.应收费用 = [借阅天数] * hy1 '子窗体中的"应收费用"字段的公式算法
   [Forms]![归还窗口]!命令8.SetFocus
ElseIf (DLookup("[卡号级别]", "读者信息表", "[卡号]='" & [Forms]![归还窗口]![文本0] & "'")) = "银卡" Then
   Dim hy As Integer
   hy = (DLookup("[借阅费用]", "借阅费用表", "[卡号级别]='银卡'"))
   Me.应收费用 = [借阅天数] * hy
ElseIf (DLookup("[卡号级别]", "读者信息表", "[卡号]='" & [Forms]![归还窗口]![文本0] & "'")) = "无卡" Then
   Dim hy2 As Integer
   hy2 = (DLookup("[借阅费用]", "借阅费用表", "[卡号级别]='无卡'"))
   Me.应收费用 = [借阅天数] * hy2
End If


以上代码的目的是在归还图书时判断卡号的级别,如果是"金卡"则其借阅费用为"借阅费用表"里的相应费用,如果是"银卡"则其借阅费用为"借阅费用表"里的相应费用,如果是"铜卡"其借阅费用为"借阅费用表"里的相应费用,如果是"无卡"则其借阅费用为"借阅费用表"里的相应费用.
但不知为什么,我运行此段代码后,主窗体中的应收费用总是为0,而不能根据卡号级别分别从"借阅费用表"中取相应的值.请问为什么?[em01][em01][em09]

binuochao

你把语句中的括号去掉看看如：

If DLookup("卡号级别", "读者信息表", "卡号= '" & [Forms]![归还窗口]![文本0] & "'") = "金卡" Then

chengweibing

谢谢我下去试一下，