AJUDA COM A CRIACAO E GRAVAO DE DATAGRIDVIEW!

KOONHA 07/08/2013 11:09:33
#427165

Ola, sou novo por aqui. Estou com dificuldades na criação de uma datagridview. eu já montei ela mas gostaria que fosse criado um certo numero de linhas que eu entro em um textbox. eu fiz o seguinte:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim index As Integer = 0
While index < Convert.ToInt32(TextBox1.Text)
index += 1
If index <= 10 Then
DataGridView1.Rows(index).Cells(1).Value = ([Ô]0[Ô] + index)
ElseIf index > 10 Then
DataGridView1.Rows(index).Cells(1).Value = (index)
End If
End While
End Sub
Eu preciso criar um numero X de linhas que eu entraria no textbox e para o numeros menores que dez, eu preciso colocar o 0 (zero) na frente.

E tambem gostaria de saber como passo isso pra um arquivo txt onde as cinco primeiras colunas ficam na primeira linha e as cinco ultimas colunas ficam na segundo, e assim por diante, fazendo isso em todas as linhas da grid.
Ahh e para a impressao eu fiz o seguinte :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim salvarComo As SaveFileDialog = New SaveFileDialog()
Dim caminho As DialogResult
Dim fluxoTexto As IO.StreamWriter
Dim Arquivo As String

salvarComo.CheckFileExists = False
salvarComo.Title = [Ô]Arquivos Textos |*.txt |[Ô]
caminho = salvarComo.ShowDialog
Arquivo = salvarComo.FileName

If Arquivo = Nothing Then
MessageBox.Show([Ô]Arquivo Invalido[Ô], [Ô]Salvar Como[Ô], MessageBoxButtons.OK)
Else
fluxoTexto = New IO.StreamWriter(Arquivo)
Using writer As New StreamWriter(caminho)
Dim i As Integer
For i = 0 To DataGridView1.Rows.Count - 1
fluxoTexto.WriteLine(DataGridView1.CurrentRow.Cells([Ô]Column1[Ô]).Value.ToString _
& [Ô] [Ô] & DataGridView1.CurrentRow.Cells([Ô]Column2[Ô]).Value.ToString _
& [Ô] [Ô] & DataGridView1.CurrentRow.Cells([Ô]Column3[Ô]).Value.ToString _
& [Ô] [Ô] & DataGridView1.CurrentRow.Cells([Ô]Column4[Ô]).Value.ToString _
& [Ô] [Ô] & DataGridView1.CurrentRow.Cells([Ô]Column5[Ô]).Value.ToString)

DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
Next

End Using

fluxoTexto.Close()
End If
End Sub

só que não esta funcionando e não sei como fazer para imprimir as colunas 6 a 10 na outra linha!
Desculpe o encomodo!!