SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: JUJOPA en Martes 26 de Noviembre de 2002, 20:34

Título: Re: lista de agregado
Publicado por: JUJOPA en Martes 26 de Noviembre de 2002, 20:34

me refiero a como tener una lista de con nombres y seleccionar solo algunos de estos y ponerlos en otra lista, para ser guardados en un abase de datos

si alguien sabe de esto por favor
urgente.


gracias

Título: lista de agregado
Publicado por: Jose Arriagada en Miércoles 27 de Noviembre de 2002, 21:56

Tienes dos formas de hacerlo:
a). Usando un treeview y un command

Al treeview coloca la propiedad checkboxes=true

Private Sub Command1_Click()
'Recorro el listado para ver si hay algun nodo marcado
For i = 1 To Lista.Nodes.Count
    If Lista.Nodes(i).Checked = True Then
        'Obtengo la clave original, ya que lo habiamos agregado un caracter C al inicio
        sClave = Mid(Lista.Nodes(i).Key, 2, Len(Lista.Nodes(i).Key) - 1)
        sTexto = Trim(Lista.Nodes(i).Text)
        'Aqui colocas el codigo para guardar el registro marcado
    End If
Next i
End Sub

Private Sub Form_Load()
For i = 1 To 10
    'Las claves del treeview tienen que comenzar con un caracter
    Clave = "C" & i 'Aqui lo puedes reemplazar por su codigo unico que identifique a la persona
    Texto = "Posicion " & i 'Aqui puedes poner el nombre de la persona
    'Insertamos el nodo
    Set Nodo = Lista.Nodes.Add(, , Clave, Texto)
Next i
End Sub


b). la otra forma es usa dos treeview (uno de origen y otro de destino) y botones de traspaso que permiten mover uno nodo de un treeview a otro.

Si quieres este ejemplo, ya que es mas largo, escribeme a jose_arriagada@hotmail.com