【【【这个VBA语句有什么问题啊】】】

xinyuehu

我就是想输入业务金额，根据输入的各种条件自动匹配对应的业务费率

Option Compare Database
Private Sub ywfl_Enter()
If ywlx = "养卡" Then
  ywfl = 0.02
ElseIf ywlx = "代还" Then
  If vip = "Y" Then
    ywfl = 0.02
  ElseIf vip = "N" Then
    If klx = "境内" Then
      ywfl = 0.028
    ElseIf klx = "境外" Then
      ywfl = 0.038
    Else
      ywfl = ""
    End If
  Else
    ywfl = ""
  End If
ElseIf ywlx = "提现" Then
  If ywje <= 3000 Then
    ywfl = 0.02
  ElseIf ywje > 3000 Then
    ywfl = 0.018
  Else
    ywfl = ""
  End If
Else
  ywfl = ""
End If
End Sub


可是不加中间这段

    If klx = "境内" Then
      ywfl = 0.028
    ElseIf klx = "境外" Then
      ywfl = 0.038
    Else
      ywfl = ""
    End If

的时候就没问题，一加上去就不行了，我初学access和vba，实在看不出来哪里有问题

请大家帮我改一下，先谢谢了

还有就是我想让窗口里任意一个数据改动的时候都会执行这段代码，应该用什么事件啊？

附上access文件，是2003格式的了

tmtony

使用 nz(klx) 来判断
因为klx里是空值

tz-chf

处理方法不太好