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
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!
Pergunta
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!!
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
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.