koonha

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!!