Programación General > Visual Basic 6.0 e inferiores

 Re: lista de agregado

(1/1)

JUJOPA:
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

Jose Arriagada:
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

Navegación

[0] Índice de Mensajes