Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/08/2012, 12:24
asastrem
 
Fecha de Ingreso: agosto-2008
Mensajes: 142
Antigüedad: 15 años, 8 meses
Puntos: 2
DropDownList no trae los datos correctos (Mismo Tema, problema plateado mejor)

Buenas tardes foreros, ya habia solicitado la ayuda respecto a este tema, pero quiza no expuse bien la informacion, bueno paso a explicar

tengo un gridview con n columnas y del cual selecciono un dato para editar,
en la pagina de edicion tengo 3 textbox, un bdplite (calendario) y 4 dropdownlist

los 3 textbox me traen la informacion correcta, el bdplite me trae la fecha correcta, pero de los 4 dropdownlist solo uno me trae los datos correctos

al traer la informacion para editar, la traigo de una tabla que tiene la informacion de los 4 textbos y del bdplite, de los dropdownlist solo tiene el id correspondiente, o sea tengo tablas por cada dropdownlist,
por ejemplo tengo la tabla clientes que tiene los datos IdCliente, DescCliente,
y asi sucesivamente con los demas dropdownlist.

bueno espero que entiendan el problema
vuelvo a poner el codigo

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
Me.hfId.Value = Request("Id")

Using cnn As New SqlConnection(Me.SQLDSQInver.ConnectionString)

Dim sel As String
sel = Me.SQLDSInver.SelectCommand & " WHERE IdInver=@p_IdInver"

Dim cmd As New SqlCommand(sel, cnn)
cnn.Open()
cmd.Parameters.AddWithValue("@p_IdInver", CType(Me.hfId.Value, Integer))

Dim tabla As New DataTable
Dim da As New SqlDataAdapter(cmd)
da.Fill(tabla)
If tabla.Rows.Count = 0 Then
Me.lblAviso.Text = "Registro no encontrado contactar al supervisor"
Exit Sub
End If

ddlCanal.SelectedIndex = tabla.Rows(0)("IdCanal") - 1
ddlSubAgencia.SelectedIndex = tabla.Rows(0)("IdAgencia") - 1
ddlCliente.SelectedIndex = tabla.Rows(0)("IdCliente") - 1
Me.txtMonto.Text = tabla.Rows(0)("Monto")
BDPLite1.SelectedDate = IIf(IsDBNull(tabla.Rows(0)("Fecha")), Nothing, tabla.Rows(0)("Fecha"))
ddlStatus.SelectedIndex = tabla.Rows(0)("Status") - 1
Me.txtObs.Text = tabla.Rows(0)("Observacion")
Me.txtNotas.Text = tabla.Rows(0)("Notas")
End Using
End If

End Sub

gracias por la ayuda...