DropDown no cambia de Valor devuelve el mismo

[sanmon]

Hola mi problema es el siguiente:

tengo 2 DropDown, el segundo DropDown (ddlProdcutCode) muestra varios Items dependiendo lo que se haya seleccionado previamente en el primer dropdow(ddlCostCenter).
Eso jala muy bien y me manda los valores del DataTable a los TextBox, ahora el problema es que cuando cambio de un item a otro en el segundo segundo DropDown (ddlProdcutCode) siempre me manda los valores del primer Item seleccionado y tampoco cambian los valores en los textbox, espero me puedan ayudar porque en verdad me he dado de topes y no he podido solucionarlo. le agradesco mucho, anexo mi codigo:

SIEMPRE me envia los valores del PRIMER item seleccionado. Ayuda!!!


************************************************** ***********
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
Menu1.SiteMapXmlFile = MenuPicker()

If Not Page.IsPostBack Then

Call GetCostCenter()

End If

************************************************** ***********

End Sub
Private Sub GetCostCenter()
'Variable data connection to MyDataDBConn
Dim Options As MyDataDBConn = New MyDataDBConn

'Fill the ddlCostCenter with the DataSource
With ddlCostCenter

.DataValueField = "CTHWRK"

.DataTextField = "CTHWRK"

.DataSource = Options.GetCostCenter

.DataBind()

.Items.Insert(0, "")

End With
End Sub

************************************************** ***********
Private Sub GetProductCode()
'Variable data connection to MyDataDBConn
Dim Detail As MyDataDBConn = New MyDataDBConn

'Fill the ddlCostCenter with the DataSource
With ddlProductCode

.DataValueField = "CTHWRK"

.DataTextField = "CITEM"

.DataSource = Detail.GetDetailProductCode(Convert.ToInt64(ddlCos tCenter.SelectedValue))

.DataBind()

.Items.Insert(0, "")

End With

End Sub
************************************************** ***********
Private Sub ddlCostCenter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlCostCenter.SelectedIndexChanged
'Fill ddlProductCode if selected any Item

If ddlCostCenter.SelectedIndex > 0 Then

Call GetProductCode()

End If


End Sub
************************************************** ***********
Private Sub ddlProductCode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlProductCode.SelectedIndexChanged

Dim DetailFields As MyDataDBConn = New MyDataDBConn

If ddlProductCode.SelectedIndex > 0 Then

Dim dt As DataTable = DetailFields.GetDetailCITEM(Convert.ToInt64(ddlPro ductCode.SelectedValue), ddlProductCode.SelectedItem.Text)

For Each MiDataRow As DataRow In dt.Rows

'Me.TxtCALIAS.Text = ddlProductCode.SelectedValue
'Me.TxtCBUSSN.Text = ddlProductCode.SelectedItem.Text

Me.TxtCALIAS.Text = MiDataRow(2).ToString
Me.TxtCBUSSN.Text = MiDataRow(3).ToString
Me.TxtCFREE1.Text = MiDataRow(4).ToString
Me.TxtCFREE2.Text = MiDataRow(5).ToString

Next

End If
End Sub

************************************************** ***********