Numeración correlativa desde TextBox

Question

Saludos cordiales a todos, la consulta es la siguiente como poder generar valores nuemricos y agregarlos a una DataGridview por ejemplo: TextBox1=10 y TextBox2=20 y al hacer clic en el boton muestre los datos al DataGridview que vaya de 10,11,12,13 hasta el 20, agradeceria pronta respuesta, seagradece de antemano.

     Dim n1 As Long
     Dim n2 As Long

        For valor As Long = n1 To n2
            Me.DataGridViewX1.Rows.Add(valor)

        Next

---

David Mayurí Rojas

Answer 1

Hola David.M.R,

Si lo agregas de esa forma, el DataGridView tomará los valores como el número de filas a crear. Deberías usar un DataTable.

        Dim n1 As Integer = CInt(TextBox1.Text)
        Dim n2 As Integer = CInt(TextBox2.Text)

        Dim dt As New DataTable
        dt.Columns.Add("Conteo")

        For valor = n1 To n2
            dt.Rows.Add(valor)
        Next

        DataGridViewX1.DataSource = dt

Solo tendrías que eliminar esa columna que has creado en tiempo de diseño, ya que el DataTable te generará la columna.

Saludos.

---

JC NaupaCrispín
Lima - Perú

La magia no existe, la programación SI

Answer 2

Muchas gracias

---

David Mayurí Rojas

Answer 3

"David.M.R" preguntó:

> como poder generar valores nuemricos y agregarlos a una DataGridview por ejemplo:
> TextBox1=10 y TextBox2=20 y al hacer clic en el boton muestre los datos al
> DataGridview que vaya de 10,11,12,13 hasta el 20,

Hola, David:

Tan solo tienes que ir agregando filas al control DataGridView conforme recorres un bucle entre el valor mínimo (TextBox1) y máximo (TextBox2), es decir, entre 10 y 20, si éstos son los valores escritos en los controles TextBox:

 

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' Valor inferior, que se supone es el que hay escrito en el control TextBox1
        Dim inferior As Integer = CInt(TextBox1.Text)

        ' Valor superior, que se supone es el que hay escrito en el control TextBox2
        Dim superior As Integer = CInt(TextBox2.Text)

        For item As Integer = inferior To superior
            ' Añadimos una nueva fila
            Dim index As Integer = DataGridView1.Rows.Add()
            ' Insertamos el valor en la primera columna de la fila añadida
            DataGridView1.Rows(index).Cells(0).Value = item
        Next

    End Sub

Y el resultado es el que muestra la imagen:

Un saludo

---

Enrique Martínez Montejo
[MS MVP - Visual Studio y Tecnologías de Desarrollo]

Nota informativa: La información contenida en este mensaje, así como el código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o sugerido en el presente mensaje.

Si esta respuesta le ha resultado útil, recuerde marcarla como satisfactoria.

Si usas Visual Basic .NET y deseas ser productivo y feliz, se inteligente y activa la instrucción Option Strict.