none
hallar numero faltantes en una columna datagridview RRS feed

  • Pregunta

  • Hola chicos, voy dicto al grano, necesito hallar huecos en una columna datagidview, previamente cargada desde access. 

    la idea es encontrar los días faltantes de la columna días. Lo estoy haciendo con un for each pero nose como hacer el resto. algo asi necesito:

    DÍA

    1

    2

    3

    5

    en este caso debería mandar un mensaje de que falta el dia 4.

    de antemano gracias

    lunes, 20 de enero de 2020 16:14

Todas las respuestas

  • Hola Gonzalo quezada

     

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que para que la comunidad de foros te pueda asesorar mejor, es necesario que nos compartas el form/code que estas desarrollando. Así la comunidad de este foro podrá ayudarte a corregir errores, sugerir mejoras y resolver dudas.

     

    Recuerda que en este foro no se resuelven tareas o proyectos escolares ni se desarrollan códigos en base a enunciados.

     

    Gracias por usar los foros de MSDN. 

     

    Diana Acuña

     ____

     

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

     

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

     

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    lunes, 20 de enero de 2020 21:50
    Moderador
  • Hola:
    En un Form como el de la imagen


    Copia y pega el siguiente codigo

    Option Strict On
    Option Explicit On
    Public Class Form3
        Private mIniciales As New List(Of Integer)
        Private mFaltan As New List(Of Integer)
        Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
            mIniciales.Add(1)
            mIniciales.Add(2)
            mIniciales.Add(3)
            mIniciales.Add(5)
            mIniciales.Add(9)
            mIniciales.Add(10)
            lsbIniciales.DataSource = mIniciales
            '
        End Sub

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If nudFinal.Value < nudInicial.Value Then
                MessageBox.Show("El valor final tiene que ser mayor que el inicial")
                Return
            End If
            For liCiclo As Integer = CInt(nudInicial.Value) To CInt(nudFinal.Value)
                If mIniciales.Contains(liCiclo) = False Then
                    mFaltan.Add(liCiclo)
                End If
            Next
            lsbFaltan.DataSource = mFaltan
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos
    martes, 21 de enero de 2020 14:27