主题：求助，一段流程控制代码，麻烦老师看下

下面这段代码，走到case “wai“，value的值等于“wai”，出现两次，不往下走了，到不了 case “res”，不知道什么原因

Dim dtp As WinForm.DateTimePicker = Forms("凭证生成").Controls("Date1")
dtp.value = Date.today.adddays(-1)
Dim Values As New List(Of String)
Dim value As String
values.add(e.DataRow("key2"))
For Each value In values
    Select Case value
          Case "WAI"
messagebox.show(value)
            If e.DataRow("YYYYMMDD") = dtp.value Then
                If  DataTables("cbdata").compute("count(date)","date = '" & dtp.value & "' And incomecategory = '散客收入'") = 0 Then
                    Dim dr As DataRow = DataTables("CBDATA").AddNew()
                    dr("DATE") = e.DataRow("YYYYMMDD")
                    dr("posstation") = "客房部"
                    dr("paycode") = "客房收入"
                    dr("incomecategory") = "散客收入"
                    dr("amount")= e.DataRow("dicvalue")
                End If
            End If
Case "RES"   
 messagebox.show(2)
            If e.DataRow("YYYYMMDD") = dtp.value Then
                If  DataTables("cbdata").compute("count(date)","incomecategory = '订房中心'") = 0 Then
                    Dim dr As DataRow = DataTables("CBDATA").AddNew()
                    dr("DATE") = e.DataRow("YYYYMMDD")
                    dr("posstation") = "客房部"
                    dr("paycode") = "客房收入"
                    dr("incomecategory") = "订房中心"
                    dr("amount")= e.DataRow("dicvalue")
                End If
            End If
End Select
Next