none
Hola como puedo saber el numero que se repite mas RRS feed

  • Pregunta

  • Hola como puedo saber el numero que se repite mas  en un datagridview y lo muestre en un texbox que comandos tengo que usar un saludo

    Gracias


    jueves, 23 de enero de 2014 13:11

Respuestas

  • Un form, un dgv, un botón, un textbox.

    Public Class Form1
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim frec As IEnumerable(Of KeyValuePair(Of Integer, Integer)) = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(r) Not r.IsNewRow).GroupBy(Function(r) CInt(r.Cells(0).Value)).Select((Function(g) New KeyValuePair(Of Integer, Integer)(g.Key, g.Count)))
    
            If frec.Count < 1 Then Return
    
            Dim max As Integer = frec.Max(Function(f) f.Value)
    
            frec = frec.Where(Function(f) f.Value = max)
    
            TextBox1.Text = IIf(frec.Count > 1, "Los números ", "El número ").ToString
    
            For Each num In frec
                TextBox1.AppendText(num.Key.ToString())
                TextBox1.AppendText(", ")
            Next
    
            If (frec.Count > 1) Then
                TextBox1.AppendText(IIf(frec(0).Value > 1, String.Format("se repiten {0} veces ", frec(0).Value), "no se repiten").ToString)
            Else
                TextBox1.AppendText(IIf(frec(0).Value > 1, String.Format("se repite {0} veces ", frec(0).Value), "no se repite").ToString)
            End If
    
        End Sub
    End Class
    


    [W]

    • Marcado como respuesta JETET jueves, 23 de enero de 2014 15:36
    jueves, 23 de enero de 2014 15:13

Todas las respuestas

  • Un form, un dgv, un botón, un textbox.

    Public Class Form1
    
        Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
            Dim frec As IEnumerable(Of KeyValuePair(Of Integer, Integer)) = DataGridView1.Rows.Cast(Of DataGridViewRow).Where(Function(r) Not r.IsNewRow).GroupBy(Function(r) CInt(r.Cells(0).Value)).Select((Function(g) New KeyValuePair(Of Integer, Integer)(g.Key, g.Count)))
    
            If frec.Count < 1 Then Return
    
            Dim max As Integer = frec.Max(Function(f) f.Value)
    
            frec = frec.Where(Function(f) f.Value = max)
    
            TextBox1.Text = IIf(frec.Count > 1, "Los números ", "El número ").ToString
    
            For Each num In frec
                TextBox1.AppendText(num.Key.ToString())
                TextBox1.AppendText(", ")
            Next
    
            If (frec.Count > 1) Then
                TextBox1.AppendText(IIf(frec(0).Value > 1, String.Format("se repiten {0} veces ", frec(0).Value), "no se repiten").ToString)
            Else
                TextBox1.AppendText(IIf(frec(0).Value > 1, String.Format("se repite {0} veces ", frec(0).Value), "no se repite").ToString)
            End If
    
        End Sub
    End Class
    


    [W]

    • Marcado como respuesta JETET jueves, 23 de enero de 2014 15:36
    jueves, 23 de enero de 2014 15:13
  • Muchisimas Gracias


    jueves, 23 de enero de 2014 15:36