Ну очень интересный результат

[blinow]

Вот немудреный текст

Код: Выделить всё


Dim tt As ADODB.DataTypeEnum, typeC As Boolean
tt = adInteger
    If tt = adChar Or _
       tt = adDate Or _
       tt = adDBDate Or _
       tt = adDBTime Or _
       tt = adDBTimeStamp Or _
       tt = adFileTime Or _
       tt = adLongVarChar Or _
       tt = adLongVarWChar Or _
       tt = adVarChar Or _
       tt - adVarWChar Or _
       tt = adWChar Then
        typeC = True
    Else
        typeC = False
    End If
    MsgBox (typeC)
   
    If tt = 129 Or _
       tt = 7 Or _
       tt = 133 Or _
       tt = 134 Or _
       tt = 135 Or _
       tt = 64 Or _
       tt = 201 Or _
       tt = 203 Or _
       tt = 202 Or _
       tt = 200 Or _
       tt = 130 Then
        typeC = True
    Else
        typeC = False
    End If
    MsgBox (typeC)

Во втором случае константы заменены числовыми эквивалентами.
В первом случае результат True
Во втором False



[GSerg]

tt = adVarChar Or _
tt - adVarWChar Or _
tt = adWChar Then