Percorrer Datagridview

Question

Pessoal, alguém poderia dar alguma ajuda com o código abaixo. Estou percorrendo um datagridview e verificando uma condição, para então adicionar outros datasgrids, mas só consigo criar um...

Public i As Integer = 1
    Public j As Integer = 0
    Private WithEvents meuDataGridView As New DataGridView
Private Sub btnbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
For Each linha As DataGridViewRow In
dgItensPesquisado.Rows
            For Each celula As DataGridViewCell In dgItensPesquisado.Rows(linha.Index).Cells
               
                If celula.ColumnIndex = 0 Then
                    i = celula.Value
                End If
                If i = 0 Then
                   DataGridView()
                    Exit Sub
                End If
                
            Next
            j = i
                    Next
    End Sub
    Private Sub DataGridView()
        For contador = 0 To j
            Me.Controls.Add(meuDataGridView)
        Next
    End Sub

---

goku

Answer 1

Olá pessoal,

Eu alterei o código, e são geradas os datagridviews, porém só é fixado no formulário o último. Veja que estou querendo gerar vários datas/tabelas, alguma dica para "salva-los" no formulário.

    Private Sub DataGridView()

        dgItensPesquisado.Visible = False

        dgListaTabela1.Visible = False

        Dim contador As Integer = 0

        Dim x As Integer = 0

        Dim y As Integer = 0

        For contador = 0 To j

            Me.Controls.Add(meuDataGridView)

            meuDataGridView.Name = "meuDataGridView " & contador & ""

            meuDataGridView.Location = New Point(8 + CInt(x), 8)

            meuDataGridView.Size = New Size(250, 150)

            meuDataGridView.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders

            meuDataGridView.ColumnHeadersBorderStyle = DataGridViewHeaderBorderStyle.Single

            meuDataGridView.CellBorderStyle = DataGridViewCellBorderStyle.Single

            meuDataGridView.GridColor = Color.Black

            meuDataGridView.RowHeadersVisible = False

            meuDataGridView.Anchor = AnchorStyles.Left

            x = x + 260

           

        Next

Obrigado!

---

goku

Answer 2

amigo tente adicionar a linha antes de :

meuDataGridView = new DataGridview()

Me.Controls.Add( meuDataGridView )

ficando assim, vc precisa instanciar um novo DataGridView na memória para haver a diferença..

tenta ai e me fala.. abraços !

---

Att, Afonso Fernandes.

Answer 3

Nossa foi lindo!!! Valeu mesmo!!!

---

goku