combo box value decrements on selected index changed

See more:

VB

HI All,

I am working on Window application..I have a combo box with values like 0,3,7 ,20...I load the combo box from the Datatable like the code below;

Dim m_dtDelayedDeliveryDays As New DataTable
       m_dtDelayedDeliveryDays = GetDelayedDeliveryDays()


       For Each dr As DataRow In m_dtDelayedDeliveryDays.Rows
           Me.cmbDelayedDeliveryDays.Items.Add(dr("DeliveryDelayDays"))
       Next
       cmbDelayedDeliveryDays.DataSource = m_dtDelayedDeliveryDays
       cmbDelayedDeliveryDays.DisplayMember = "DeliveryDelayDays"
       cmbDelayedDeliveryDays.ValueMember = "DeliveryDelayDaysID"
       cmbDelayedDeliveryDays.SelectedIndex = -1

This works fine..When the selected index gets changed say for example i select 20 it automatically changes to 0...Here is wat i do in Selected index changed:

Private Sub cmbDelayedDeliveryDays_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDelayedDeliveryDays.SelectedIndexChanged
        If cmbDelayedDeliveryDays.SelectedIndex > 0 Then

            Dim selectedDataRow As DataRow = DirectCast(cmbDelayedDeliveryDays.SelectedItem, DataRowView).Row


            Dim delayId As Integer = Convert.ToInt32(selectedDataRow("DeliveryDelayDaysID"))


            UpdateMerchant()

        End If


    End Sub

Please help me with this...When i retrieve the form i get the form i assign the combo box the value from the database like this:

Dim delayid As Integer = .DeliveryDelayDaysID
           Dim m_dtDelayedDeliveryDays As New DataTable
           m_dtDelayedDeliveryDays = GetDelayedDeliveryDays()
           Dim str As Integer
           For Each drow As DataRow In m_dtDelayedDeliveryDays.Rows
               If drow("DeliveryDelayDaysID").Equals(delayid) Then
                   str = drow("DeliveryDelayDays")
                   cmbDelayedDeliveryDays.Text = str
               End If

           Next

Where am i going wrong..Please help.Thanks.