ขอโค้ดinsert,edit ข้อมูลคำนำหน้าชื่อจาก combobox ที่ดึงมาจากฐานข้อมูลซึ่งเป็น detail แต่เมื่อบันทึกกลับเป็น ID คำนำหน้าชื่อไปที่ตารางสมาชิกทำไงอะคะ

        cboEnum.Items.Add(New ListItem(1, "ร่วมประชุม"))
        cboEnum.Items.Add(New ListItem(2, "ร่วมกิจกรรม"))
        '...
        '...
        '***** หรืออ่านค่ามาจาก Table ประเภทความดี *****

    Private Sub cboGoodType_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboGoodType.SelectedIndexChanged
        MsgBox(cboGoodType.Items(cboEnum.SelectedIndex).ID()) 'เอาค่านี้บันทึกลงไปในตาราง ประเภทความดี
        MsgBox(cboGoodType.Items(cboEnum.SelectedIndex).Value())
    End Sub

    Public Class ListItem
        Private _ID As Object
        Private _value As String

        Public Sub New(ByVal ID As Object, ByVal value As String)
            _ID = ID
            _value = value
        End Sub

        Public ReadOnly Property ID() As Object
            Get
                Return _ID
            End Get
        End Property

        Public ReadOnly Property Value() As String
            Get
                Return _value
            End Get
        End Property

        Public Overrides Function ToString() As String
            Return Value
        End Function
    End Class

    cboGoodType.Items.Add(New ListItem("ร่วมประชุม", 1))  'แก้ไข 2013-05-08  (DisplayText, Value/Keys)
    cboGoodType.Items.Add(New ListItem("ร่วมกิจกรรม", 2)) 'แก้ไข 2013-05-08 (DisplayText, Value/Keys)
    '...
    '...

Private Sub cboGoodType_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cboGoodType.SelectedIndexChanged
    MsgBox(cboGoodType.Items(cboGoodType.SelectedIndex).ID()) 'เอาค่านี้บันทึกลงไปในตาราง ประเภทความดี
    MsgBox(cboGoodType.Items(cboGoodType.SelectedIndex).Value())
End Sub

Public Class ListView
    Public Property ID As Object
    Public Property Value As String

    Sub New(ByVal value As String, ByVal id As Object)
        Me.ID = id
        Me.Value = value
    End Sub

    Public Overrides Function ToString() As String
        Return Me.Value.ToString 'MyBase.ToString()
    End Function

End Class