criação e gravação de datagridview

[koonha 0]

 

 

SAO PAULO

Mensagem interna

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

 

[KhaosDoctor 242]

O que está funcionando e o que não está?

[koonha 0]

Entao, nenhum dos dois estao funcionando, pq eu nao consigo fazer a datagrid atualizar soh a primeira coluna e montar as linhas, e eu nao consigo imprimir nda no txt