Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda com a criaçao e gravao de datagridview!


koonha

Pergunta

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

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...