Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: FreddyJ en Marzo 30, 2010, 03:43:36 pm

Título: TreeView y Check...
Publicado por: FreddyJ en Marzo 30, 2010, 03:43:36 pm

Buenas. tengo un inconveniente con el TreeView y unos Check Box.

La idea es que al seleccionar un nodo se carguen los datos en los textos y en los check. Ya se como cargar los datos en los textos, el detalle es que no se como cargarlos en los check.

En la tabla estan 5 campos tipo Si/No, ya guardados como True ó False.. Entonces lo que quiero es que si el campo 1 = Check1 es True se cargue ya marcado en el check del formulario.

Código: [Seleccionar]

Private Sub Buscar_Usuario(ByVal lpName As String)
    Dim rs As New ADODB.Recordset
        rs.Open "SELECT * FROM Usuario WHERE Usu_User = '" & lpName & "'", nc, adOpenDynamic, adLockOptimistic
    While Not rs.EOF
        txId.Text = rs!Usu_Id
        txUsu.Text = rs!Usu_User
        txFecha.Text = " " & rs!Usu_Fecha
        cboAdmin.ListIndex = (rs!Usu_Tipo)
         ' Aqui se colocaria el codigo para que se cargue los check...
        rs.MoveNext
        DoEvents
    Wend
        rs.Close
    Set rs = Nothing
End Sub

Código: [Seleccionar]

Private Sub tv_NodeClick(ByVal Node As MSComctlLib.Node)
    If (Left(Node.Key, 3) = "adm") Then
        'administradores
        Call Buscar_Usuario(Node.Text)
    ElseIf (Left(Node.Key, 3) = "nor") Then
        'usuarios comunes
        Call Buscar_Usuario(Node.Text)
    End If
End Sub

Título: Re:TreeView y Check...
Publicado por: ssccaann43 en Marzo 30, 2010, 07:59:26 pm

Sera esto lo que quieres???

Código: (vb) [Seleccionar]

Private Sub Buscar_Usuario(ByVal lpName As String)
    Dim rs As New ADODB.Recordset
        rs.Open "SELECT * FROM Usuario WHERE Usu_User = '" & lpName & "'", nc, adOpenDynamic, adLockOptimistic
        If rs.State = 1 Then
           If rs.EOF = False Then
              txId.Text = rs!Usu_Id
              txUsu.Text = rs!Usu_User
              txFecha.Text = " " & rs!Usu_Fecha
              cboAdmin.ListIndex = (rs!Usu_Tipo)
                'Sera esto lo que quieres????
              If rs!CampoSINO = "Si" Then
                   ChekBox1.Value=1
              ElseIf rs!CampoSINO = "No" Then
                   ChekBox1.Value=0
              End If       
          End If
        End If
        rs.Close
  Set rs = Nothing
End Sub

Título: Re:TreeView y Check...
Publicado por: FreddyJ en Marzo 31, 2010, 10:58:45 am

Bien....  Gracias Miguel.  :D

If (rs!CampoSINO ) = True Then
         ChekBox1.Value = 1
    Else
        ChekBox1.Value = 0
End If