<> ... 내가 무엇이 누락되었는지

Question

이것이 작동하지 않는다고 가정 할만한 이유가있는 것은 무엇이든 찾을 수 없습니다. 무엇을 상관없이 항상 if 문 내부의 코드를 평가합니다.

() 안에 모든 것을 넣으려고했지만()로 각 문을 분리하려고했습니다. 상관없이 항상 if 문 안에 코드를 실행합니다. 내가 뭘 놓치고 있니?

' Update by Adam W. Schneider 11/10/2017 
If strDrawingSize <> "T" Or strDrawingSize <> "Y" Or strDrawingSize <> "Z" Or strDrawingSize <> "M" Or strDrawingSize <> "P" Or strDrawingSize <> "S" Or strDrawingSize <> "N" Or strDrawingSize <> "W" Or strDrawingSize <> "X" Or strDrawingSize <> "R" Or strDrawingSize <> "O" Then 

    ' Update by Adam Schneider 08/24/2017 
    cboRefDrawingSize.Text = cboDrawingSize.Text 

End If 

나는 추한 if 문을 알고 있는데, case 문과 함께 부정 논리를 사용하려고 시도했지만 그 중 하나도 작동하지 않았습니다.

Answer 1

, 당신은 strDrawingSize 원하는 문자 중 하나가 아닌 경우 확인하려면 :

클리너 방법은 Select Case가 사용하는 것입니다. 그런 경우는 -1 인 경우, 다음 비교 원하는 문자에 같이 IndexOf 메서드를 사용

If "TYZMPSNWXRO".IndexOf(strDrawingSize) = -1 Then 
    cboRefDrawingSize.Text = cboDrawingSize.Text 
End If 

바이올린 : Live Demo

이 작동하는 방법이다 : 본질적으로 문자열의 모음입니다 Char 값의 경우 IndexOf 메서드는 컬렉션 내의 지정된 값의 인덱스를 반환하고 값이 없으면 -1을 반환합니다.

Answer 2

다른 사람들이 말했듯이 AND 대신 OR을 사용하기 때문에 코드가 항상 실행됩니다. 내가 알고있는 것처럼

Select Case strDrawingSize 
    Case "T", "Y", "Z", "M", "P", "S", "N", "W", "X", "R", "O" 
    Case Else 
      ' Update by Adam Schneider 08/24/2017 
      cboRefDrawingSize.Text = cboDrawingSize.Text 
End Select