Идеальный способ сделать это - использовать перечисляемые значения, чтобы заполнить проверенное поле со списком, что позволяет гарантировать связь элементов в списке с их значениями. Чтобы преобразовать Enum в удобный для человека формат, вы можете сделать что-то вроде этого.
Imports System.ComponentModel
Imports System.Reflection
Public Enum ePregnancyCode
<Description("Not Specified")> _
NotSpecified
<Description("Not Pregnant")> _
NotPregnant
<Description("Pregnant")> _
Pregnant
End Enum
И затем получить поле Description
, используя этот код
Public Function GetDescription(ByVal EnumConstant As [Enum]) As String
Dim fi As FieldInfo = EnumConstant.GetType().GetField(EnumConstant.ToString())
Dim aattr() As DescriptionAttribute = _
DirectCast( _
fi.GetCustomAttributes(GetType(DescriptionAttribute), False), _
DescriptionAttribute() _
)
Return If(aattr.Length > 0, aattr(0).Description, EnumConstant.ToString())
End Function
Вероятно, вам лучше было бы использовать правку поиска для вашего Combo Selection, теперь, когда я об этом думаю. Затем вы можете просто извлечь выбранную коллекцию элементов из элемента управления, когда вы собираетесь вставить ее в базу данных.