Select case по типу переменной.

[KAPACb]

В соответствие с примером:
http://msdn.microsoft.com/ru-ru/library ... ecode.aspx

делаю перебор по типу переменной:

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

For Each CurColumn As DataColumn In My_DataTable.Columns
     Select Case Type.GetTypeCode(CurColumn.DataType.GetType())
          Case TypeCode.Int16, TypeCode.Int32, TypeCode.Int64
               ...
          Case Else
               ...
     End Select
Next


он не работает !
Сразу убегает на "Case Else", даже не пытаясь проверять условия

хотя в watch для CurColumn.DataType указано
FullName "System.Int64"

[MIT]

Дык может попробовать

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

For Each CurColumn As DataColumn In My_DataTable.Columns
     Select Case Type.GetTypeCode(CurColumn.DataType.GetType()).FullName
          Case "System.Int16", "System.Int32", "System.Int64"
               ...
          Case Else
               ...
     End Select
Next

ы?

Кстати заметь, что там Case typeCode.Boolean, а не Case TypeCode.Boolean, может в этом дело?

[KAPACb]

>Дык может попробовать

Это не красиво. И, подозреваю, очень криво.

Нет, "на сейчас" я именно так и сделал, но...

>Кстати заметь

Если внимательно посмотреть, то можно увидеть, что в этом примере они переменную называют также, как и тип.
Руки за такой пример отрывать надо, но другого нет...

Я, типа, сократил пример, но уверяю, оно не работает даже если скопипастить.

[MIT]

Я скопипастил и у меня всё работает.

[1Steps]

>Дык может попробовать

Это не красиво. И, подозреваю, очень криво.

Так тогда делай сам. Зачем спрашиваешь?

[KAPACb]

Я скопипастил и у меня всё работает.

Согласен, код из примера - работает.

Я про то говорю, что он не работает, будучи применён с столбцам в DataTable.

Вот такой, например, код:

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

        Dim MySQLConnection As New SqlConnection("Persist Security Info=False;Integrated Security=true;Initial Catalog=My_DB;server=My_SQLServer")

        Dim MySQLCommand As New SqlCommand("select * from My_Table", MySQLConnection)

        Dim MyDataAdapter As New SqlDataAdapter(MySQLCommand)

        Dim MyDataTable As New DataTable

        MyDataAdapter.Fill(MyDataTable)

        For Each CurColumn As DataColumn In MyDataTable.Columns
            Select Case Type.GetTypeCode(CurColumn.DataType.GetType())
                Case TypeCode.Int16, TypeCode.Int32, TypeCode.Int64
                    Debug.Print(CurColumn.ColumnName + " - integer")
                Case TypeCode.Char, TypeCode.String
                    Debug.Print(CurColumn.ColumnName + " - text")
                Case Else
                    Debug.Print(CurColumn.ColumnName + " - other type")
            End Select
        Next

нормально не работает, не проверяя ни одного case, сразу идёт в case else
Ушо в ём не так ?

Чтоб совсем соответствовать примеру из msdn, можно переделать вот так:

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

        Dim MySQLConnection As New SqlConnection("Persist Security Info=False;Integrated Security=true;Initial Catalog=My_DB;server=My_SQLServer")

        Dim MySQLCommand As New SqlCommand("select * from My_Table", MySQLConnection)

        Dim MyDataAdapter As New SqlDataAdapter(MySQLCommand)

        Dim MyDataTable As New DataTable

        MyDataAdapter.Fill(MyDataTable)

        For Each CurColumn As DataColumn In MyDataTable.Columns

            Dim typeCode As TypeCode = Type.GetTypeCode(CurColumn.DataType.GetType())

            Select Case typeCode
                Case typeCode.Int16, typeCode.Int32, typeCode.Int64
                    Debug.Print(CurColumn.ColumnName + " - integer")
                Case typeCode.Char, typeCode.String
                    Debug.Print(CurColumn.ColumnName + " - text")
                Case Else
                    Debug.Print(CurColumn.ColumnName + " - other type")
            End Select
        Next


Всё равно ведь не работает.

Так тогда делай сам. Зачем спрашиваешь?

Извините пожалуйста, сразу не указал в инит-посте, что комментарии быдлокодеров мне не интересны.

[MIT]

Из строки Select Case Type.GetTypeCode(CurColumn.DataType.GetType()) выкить .GetType() нафиг. .DataType уже возвращает TypeCode, а .GetType() возвращает System.RuntimeType

[KAPACb]

Большое спасибо, всё заработало.