Case语句变量为字符串的问题

十年磨一剑

求助各位高手，Case后面跟变量为字符串的格式，可否写成Case "0.15"，如果可以，下面这个代码输入"0.15"与"0.25"时，返回的都是Case Else的结果，问题出在哪里？
Private Sub 致命缺陷_AfterUpdate()
Dim U As String
U = Me!致命缺陷.Value

Select Case U
     Case "0.15"
                Me.致命Ac = 0
                Me.致命Re = 1
                Me.抽检数量 = Me.交货数量
     Case "0.25"
                Me.致命Ac = 1
                Me.致命Re = 2
                Me.抽检数量 = Me.交货数量
     Case Else
                Me.致命Ac = 100
                Me.致命Re = 99
                Me.抽检数量 = Me.交货数量
End Select
     
End Sub

todaynew

在select case 前面加一句msgbox U。就知道问题所在了。

十年磨一剑

问题解决了，版主真高明呀，多谢！！！{:soso_e179:}

todaynew

十年磨一剑 发表于 2012-2-23 19:52
问题解决了，版主真高明呀，多谢！！！

查明真相是解决问题的关键一步

十年磨一剑

版主指导有方呀，这个方法这几天又帮我解决了两个问题。{:soso_e179:}{:soso_e113:}