none
Numerar células em range variado num DataGridView RRS feed

  • Pergunta

  • Olá pessoal como eu poderia fazer para que meu data grid colocasse linhas e as enumerasse automaticamente, como no exemplo abaixo?

    Eu estou trabalhando com WindowsForm, no meu caso a os cálculos são feitos a partir destes dados.

    domingo, 5 de julho de 2015 14:50

Respostas

  • Obrigado a todos, mas consegui resolver, era uma coisa relativamente simples, segue o exemplo de como ficou.

    Private WithEvents DaGV As New DataGridView
        Private Data As New DataTable
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim I, NLL As Integer
            DaGV.SetBounds(20, 50, 400, 200)
            Controls.Add(DaGV)
            Data.Columns.Add("Chamada", GetType(Int32))
            Data.Columns.Add("Area", GetType(Double))
            NLL = 15 'Número de linhas que desejo'
            Data.Columns(1).Expression = "2 * Chamada"  'Vai multiplicar os valores da Coluna A por 2'
            For I = 1 To NLL    'Irá enumerar a coluna "1" de 1 até NLL'
                Data.Rows.Add(I)
            Next (I)
            DaGV.DataSource = Data
        End Sub
    Basicamente eu estava precisando apenas da função: "For"


    • Marcado como Resposta A_Nunes segunda-feira, 6 de julho de 2015 13:50
    • Editado A_Nunes segunda-feira, 6 de julho de 2015 13:50
    segunda-feira, 6 de julho de 2015 13:50

Todas as Respostas

  • Bom dia Usuário,

    Tudo bem?

    Por gentileza, verifique as threads abaixo para ver se consegue resolver sua dúvida:

    Thread 01

    Thread 02

    Espero ter ajudado.

    Atenciosamente

    Marcos Robertto


    • Editado Mr. Morello segunda-feira, 6 de julho de 2015 13:10
    segunda-feira, 6 de julho de 2015 13:07
  • Obrigado a todos, mas consegui resolver, era uma coisa relativamente simples, segue o exemplo de como ficou.

    Private WithEvents DaGV As New DataGridView
        Private Data As New DataTable
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim I, NLL As Integer
            DaGV.SetBounds(20, 50, 400, 200)
            Controls.Add(DaGV)
            Data.Columns.Add("Chamada", GetType(Int32))
            Data.Columns.Add("Area", GetType(Double))
            NLL = 15 'Número de linhas que desejo'
            Data.Columns(1).Expression = "2 * Chamada"  'Vai multiplicar os valores da Coluna A por 2'
            For I = 1 To NLL    'Irá enumerar a coluna "1" de 1 até NLL'
                Data.Rows.Add(I)
            Next (I)
            DaGV.DataSource = Data
        End Sub
    Basicamente eu estava precisando apenas da função: "For"


    • Marcado como Resposta A_Nunes segunda-feira, 6 de julho de 2015 13:50
    • Editado A_Nunes segunda-feira, 6 de julho de 2015 13:50
    segunda-feira, 6 de julho de 2015 13:50