[Resolvido] Carregar dados de um Ciclo para DataGrid

[Chamuanza]

Um bem Aja

Tenho um Ciclo executado que me faz a contagem de valores iguais numa Datagrid e pretendo passar os dados para outra Datagrid, mas náo estou a certar com o código.

Alguem me dá uma ajuda?

Private Sub butContar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butContar.Click


Dim ContaNum(50) As Integer
	For i As Integer = 1 To 50
		For Linhas = 1 To DataGridView2.RowCount - 1
			For Colunas = 1 To 5
				If DataGridView2.Item(Colunas, Linhas).Value = i Then
					ContaNum(i) += 1
				End If
			Next Colunas
		Next Linhas
		Me.DataGridView1.Rows.Add()
		Me.DataGridView1.Item(1, i).Value = ContaNum(i)
	Next i

End Sub

Edited July 9, 2012 at 09:26 AM by Chamuanza

[Chamuanza]

- Como faço para dar este Tópico com RESOLVIDO, ainda não consegui perceber

- Como faço para colocar o cabeçalho em negrito ao criar um novo topico

Resolvi este topico com o seguinte código

Dim ContaNum(50) As Integer
    Dim i As Integer

    For i = 1 To 50
	    For Linhas = 1 To DataGridView2.RowCount - 1
		    For Colunas = 1 To 5
			    If DataGridView2.Item(Colunas, Linhas).Value = i Then
				    ContaNum(i) += 1
			    End If
		    Next Colunas
	    Next Linhas
	    ListBox1.Items.Add(i & " - " & ContaNum(i))
	    Tabela.Rows.Add(i, ContaNum(i))
    Next i

Obrigado de qualquer das maneiras

[Caça]

- Como faço para dar este Tópico com RESOLVIDO, ainda não consegui perceber

Essa funcionalidade ainda só está disponível para os moderadores.

- Como faço para colocar o cabeçalho em negrito ao criar um novo topico

Não percebi. Estás a falar do titulo?

[Chamuanza]

Sim no Titulo do topico

Cada topico que crio tento colocar a fonte a negrito, mas depois a mesma aparece normal

[Caça]

O Titulo do tópico não é para ter formatação.