Buenas toral,la verdad es que se me habia pasado,pido perdon :(.
Ahi van las respuestas:
1- Respecto a coger un valor de un ListBox y mostrarlo en un textbox del mismo
formulario y página pues a ver,partimos de que llenas un ListBox con el contenido
del campo "Descripción" y que esos valores son los que se muestran en el listbox,
entoces yo lo que haria sería tener,aparte del ListBox,pues los textbox correspondientes
y el botón ACTUALIZAR,y haria sería esto:
Private Sub Listbox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstmodificar.SelectedIndexChanged
Dim filaagenda As DataRow
filaagenda = Me.odataset.Tables("TU_TABLA").Rows(listbox1.Selec tedIndex)
Me.txtdescripcion.Text = filaagenda("DESCRIPCION")
'Entoces ya te saldría el contenido del campo DESCRIPCIÓN en el textbox,lo modificas y
'le das al boton MODIFICAR y en el boton modificar pones....
Ens Sub
Private Sub btnaceptarcambios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptarcambios.Click
Dim odatarow As DataRow
odatarow = Me.odataset.Tables("TU_TABLA").Rows(listbox1.Selec tedIndex)
odatarow("DESCRIPCION") = txtdescripcion.Text
Me.odataadapter.Update(Me.odataset, "TU_TABLA")
End Sub
Ya luego pues recargarias la pagina o el listbox,o lo que quieras :D,creo que no se me ha olvidado nada
Respecto a lo segundo yo no he programado en asp,pero creo que se lo que te refieres,y se llama
DataBinding
2-
Para ello tendrias que poner en el Form_Load los enlaces:
Dim oBind as Binding
oBind = New Binding("Text",odataset,"TUTABLA.Descripcion")
'Text es la prioridad que se enlaza
'odataset es tu dataset
'TUTABLA.Descripcion es TUTABLA.nombrecolumnaqueenlazas
'Despues pones
Me.txtDescripcion.DataBinding.Add(obind)
obind = Nothing
'Y ya lo tienes enlazado automaticamente,con lo que las operaciones de navegacion se simplifica
'muchisimo.Ahora ya puedes ir probando(aparte de enlazar los restantes controles),cosas como
Avanzar:
Me.oBMB.Position +=1
Retroceder:
Me.oBMB.Position -=1
Ir al primero:
Me.oBMB.Position = 0
Etc,Etc,Etc
Espero que te haya servido de ayuda y para cualquier cosa aqui me tienes,un saludo!!
