Visual Basic.NET - Ayuda con seleccion del listView

 
Vista:
sin imagen de perfil

Ayuda con seleccion del listView

Publicado por Daniel (8 intervenciones) el 08/07/2009 20:13:13
Hola Gente,
Necesito de su sabiduria.

Tengo un proyecto en el cual cuenta con 2 forms llamare form1 y form 2.

En el form1 tengo varios textbox en el form 2 tengo un listView (FORM2) que esta cargado con datos de una base de datos de oracle.

Hasta el momento lo unico que hace mi programa es cargar los datos en el list view y desde el form 1 agregarlos.

Lo que necesito es seleccionar una de las filas del listview y pasarlas a los text box del form 1.

Las columnas del Listview se llaman CODIGO, CEDULA, NOMBRE , TELEFONO, DIRECCION, FECHA DE INGRESO.

POr favor ayudarme con esto, les adjunto el codigo de como le estoy cargando los datos de la base...

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Imports System.Data.OracleClient
Imports System.Collections


Public Class MuestraClientes
Dim cn As OracleConnection

Dim daClientes As OracleDataAdapter

Dim dsDatos As DataSet

Private Sub MuestraClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New OracleConnection(Principal.stringconexion)

daClientes = New OracleDataAdapter("SELECT * from CLIENTES ORDER BY COD_CLIENTES", cn)

dsDatos = New DataSet

daClientes.Fill(dsDatos, "CLIENTES")

ListView1.Items.Clear()
Dim i As Integer
For i = 0 To dsDatos.Tables("CLIENTES").Rows.Count - 1
ListView1.Items.Add(dsDatos.Tables("CLIENTES").Rows(i)("COD_CLIENTES"))
ListView1.Items(i).SubItems.Add(dsDatos.Tables("CLIENTES").Rows(i)("CEDULA"))
ListView1.Items(i).SubItems.Add(dsDatos.Tables("CLIENTES").Rows(i)("NOMBRE"))
ListView1.Items(i).SubItems.Add(dsDatos.Tables("CLIENTES").Rows(i)("TELEFONO"))
ListView1.Items(i).SubItems.Add(dsDatos.Tables("CLIENTES").Rows(i)("DIRECCION"))
ListView1.Items(i).SubItems.Add(dsDatos.Tables("CLIENTES").Rows(i)("FECHAINGRESO"))

Next

End Sub

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Agradesco cualquier ayuda que me puedan brindar...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder