:-)Hola:
Estoy realizando una aplicación en la que el usuario tiene que llenar un formulario mediante listas. El valor de las listas las guardo en una base de datos.
No tengo problemas en cargar las listas con la base de datos.
Mi problema esta en que mi aplicacion tiene la funcion de editar y lo que se supone que tiene que hacer es lo siguiente:
en una datagrid seleccione el formulario que deseo editar y doy editar, me redirecciona a la pagina donde antes habia llenado el formulario pero ahora
me tendra que aparecer los controles llenos con la informacion, en este caso las listas tienen que aparecer con el valor seleccionado (con lo que se guardo en la BD) y cargada con una consulta.
bueno el problema es que no lo hace, les dejo mi código para explicarme mejor.
Aquí cargo la lista. Y no tengo ningun problema
Private Sub CargaComboNombre(ByVal ocboDatos As DropDownList)
Dim li As ListItem
strSQL = "select id_emp,rtrim(nombre_emp)+' '+rtrim(apellido_p)+' '+rtrim(apellido_m) Nombre from empleado where status2=1"
ds = BuscaInfo(strSQL)
DDLNOMBRE.DataTextField = "Nombre"
DDLNOMBRE.DataValueField = "Id_emp"
DDLNOMBRE.DataSource = ds.Tables(0).DefaultView
DDLNOMBRE.DataBind()
DDLNOMBRE.ClearSelection()
li = New ListItem("Seleccione ...", "0")
li.Selected = True
DDLNOMBRE.Items.Add(li)
End Sub
Aquí es donde traigo los datos en el formulario
Private Sub BuscaUsuario(ByVal ide As Integer)
Dim ilItem As ListItem
strSQL = "select u.Id_usuario,u.Usuario,u.Password1,u.Clave_emp,u.P ermisos,e.nombre_emp Nombre from usuario u "
strSQL += "inner join empleado e on e.Id_emp=u.Clave_emp where u.Id_usuario=" + NoUsuario.ToString() + ""
ds = BuscaInfo(strSQL)
If (ds.Tables(0).Rows.Count > 0) Then
TXTID_USUARIO.Text = ds.Tables(0).Rows(0)("Id_usuario").ToString().Trim ()
TXTUSUARIO.Text = ds.Tables(0).Rows(0)("Usuario").ToString().Trim()
TXTPASSWORD.Text = ds.Tables(0).Rows(0)("Password1").ToString().Trim( )
TXTPERMISO.Text = ds.Tables(0).Rows(0)("Permisos").ToString().Trim()
Aquie esta el problema no trae el valor en la lista
ilItem = New ListItem
DDLNOMBRE.ClearSelection()
Se supone que ilItem guardara los datos que me trae desde la base de datos
ilItem =
DDLNOMBRE.Items.FindByText(ds.Tables(0).Rows(0)("N ombre").ToString().Trim())
Y aquí verifica que ilItem no sea nula, pero se supone que ilItem tiene que venir con datos, pero no me los carga y por tanto marca error y obvio no se llena la lista
If Not (ilItem Is DBNull.Value) Then
ilItem.Selected() = True
End If
End If
End Sub
Ojala alguien pueda ayudarme o decirme si es posible hacer esto con las listas o hay otra forma de hacerlo.
Gracias y espero haberme explicado bien :-)
