VB.net Литеральные типы данных: «15D» превращается в «15»

Question

У меня возникла проблема, когда я использую код номера и буквы («15D») в поле базы данных «Ярлык», но когда Я извлекаю его, даже если он рассматривается как строка, VB.NET считает, что «D» означает десятичное значение и возвращает «15» вместо строки «15D», хранящейся в базе данных.

' assigning from DB 
    Me.Filter1.ComboBox.ValueMember = "Shortcut" 
    Me.Filter1.ComboBox.DisplayMember = "Description" 
' using 
    Dim myVal as String 
    myVal = Me.Filter1.SelectedValue 

... myVal тогда «15», а не «15D».

Любая идея, как этого избежать?

Спасибо,

Libor

Answer 1

вы можете преобразовать его в то время прочитанного, как так:

Dim myVal as String = Me.Filter1.SelectedValue 
myVal =New String((From c As Char In myVal Select c Where Char.IsDigit(c)).ToArray()) 

В другом случае вы можете сделать то же самое, как:binding combobox from dictonary

Dim dictonarySource As Dictionary(Of String, String) 
    While reader.Read 
     Dim shortCut As String = New String((From c As Char In reader.Items("Shortcut") Select c Where Char.IsDigit(c)).ToArray()) 
     dictonarySource.Add(shortCut, reader.Items("Description")) 
    End While 
    ComboBox1.DataSource = New BindingSource(dictonarySource, Nothing) 
    ComboBox1.DisplayMember = "Value" 
    ComboBox1.ValueMember = "Key"