Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic.NET » copiar datos en treeview

Visual Basic.NET - copiar datos en treeview

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

copiar datos en treeview

Publicado por melqui (243 intervenciones) el 08/02/2021 16:21:38
hola chicos
necesito de una ayuda
estoy teniendo dificultado

del lado derecho tengo una lista de grupos de contatos que está en la base de datos, del lado isquierdo
viene al cargar el archivo.
lo que necesito es que todos que estan con la caja marca pasen a los de lado derecho, no estoy conseguiendo.
porque el check no me funciona.

Screenshot_4

algun material que pueda estudiar este recurso ? es la primera vez que uso el treeview
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
Imágen de perfil de melqui
Val: 643
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

copiar datos en treeview

Publicado por melqui (243 intervenciones) el 14/02/2021 14:05:56
hola amigos.

vea, consegui registrar en el grupo de contatos, todos los correos que estan en la lista de resultados.
 mas me encontre con otro porblema

yo estoy haciendo un loop para cada registro raiz dentro do grupo de contato
despues de registrar, el tiene que deletar hasta aqui está todo bien, problema es que cuando ejecuto para salvar e deletar la lista siempre sobra 1 del registro raiz, no se por que tal como está en mi imagen

aqui seleciono e registro en el grupo de contatos familia

Screenshot_5


aqui debia de deleto los 3 registros raiz, apenas deleto 2 y la dejo 1

Screenshot_6



dejo el codigo para que verifique como está dentro de mi aplicacion.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Private Sub SalvarListaRegistros()
 
    Try
        With ObjCliente
 
 
            Application.DoEvents()
            Thread.Sleep(100)
 
            'AQUI ESCOLHE O GRUPO QUE SERÁ INSERIDO NO BANCO DE DADOS
            For Each item_contatos As ListViewItem In lv_GrupoContatos.Items
 
                If item_contatos.Checked = True Then
                    .CodigoGrupoCliente = item_contatos.Text
 
                    'AQUI VAI PEGAR O REGISTRO DA LISTA DO RESULTADO
                    For Each check_primario As TreeNode In Tr_ListExtrairDados.Nodes
                        'AQUI VERIFICA OS PRIMARIO SI EXISTE CHECK ATIVO
 
                        If check_primario IsNot Nothing Then
 
                            If check_primario.Checked = True Then
 
                                'AQUI VAI PEGAR O REGISTRO UMA LINHA POR LINHA
                                For Each check_secundario As TreeNode In check_primario.Nodes
 
                                    Dim BolSecundario As Boolean = check_secundario.Checked = True
 
                                    .EmailCliente = check_secundario.Text
                                    .NomeCliente = String.Empty
                                    .CelularCliente = String.Empty
                                    .WhatsCliente = False
 
                                    If Neg_LogicClientes.InsertClientes(ObjCliente) = False Then
                                        Thread.Sleep(2)
                                    Else
                                        Thread.Sleep(2)
                                    End If
 
                                    Application.DoEvents()
                                    Thread.Sleep(100)
 
                                    If BolSecundario = True Then
                                        check_primario.Remove()
                                        BolSecundario = False
                                    End If
 
                                Next
 
 
                            End If
 
                        End If
 
                    Next
 
 
                End If
 
            Next
 
 
        End With
 
        MsgBox("Concluído com sucesso.!", MsgBoxStyle.Information, StrTituloMensagem)
 
 
    Catch ex As Exception
        MessageBox.Show(String.Format("ERRO {0}", ex.Message), StrTituloMensagem, MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub


quedo atento a los comentários.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar