DATAGRID CELULA

ROBFERREIRAA 03/10/2012 14:27:03
#411161
ola gente alguem tem alguma ideia como passo o valor um textbox para uma celula do grid e nao para uma linha
pois a linha ja esta prenchida preciso somente preencher a celula com o valo do text box
obrigado
ROBSON220BASS 03/10/2012 14:37:13
#411162 Resposta escolhida
passar para a celula desejada.
este passa para a 1º linha e 3º celula do grid

seudatagridview.Rows(1).Cells(2).Value=seutextbox.text

se fosse para 4º celula seria:
seudatagridview.Rows(1).Cells(3).Value=seutextbox.text

porem existe varias formas..
qualquer duvidas post novamente
ROBFERREIRAA 03/10/2012 15:21:31
#411172
se por acaso fosse de acordo com a quantidade de arquivos no excel
ROBSON220BASS 03/10/2012 15:29:42
#411174
nao entendi, explique melhor..

por favor.
ROBFERREIRAA 03/10/2012 16:03:43
#411178
por exemplo estou importando um aquivo que a quantidade de linhas nao sao fixas
eu gostaria de replicar este dado do codigo que tu me enviou para todas as linha de acordo com a quantidade de linhas que foram incluidas no grid
ROBSON220BASS 03/10/2012 16:34:01
#411181
ok... faz um laço de repeticao
exemplo:

dim i as integer

for i=0 to qttotaldedelinhas

seudatagridview.Rows(i).Cells(0).Value=seutextbox1.text
seudatagridview.Rows(i).Cells(1).Value=seutextbox2.text
seudatagridview.Rows(i).Cells(2).Value=seutextbox3.text
seudatagridview.Rows(i).Cells(3).Value=seutextbox4.text

next i

e isso? perdoe se nao entendi, pois estou chateado ate agora (ontem um ladrao entrou na minha casa e roubou meu monitor e deixou estrago na minha porta)

duvidas post novamente
ROBFERREIRAA 03/10/2012 16:43:59
#411182
que punk cara vou testar e posto aqui pode deixar obrigado
ROBFERREIRAA 03/10/2012 16:48:21
#411183
sop nao entendi esse qttotaldedelinhas vc nao declarou declaro ele com qual tipo
ROBSON220BASS 03/10/2012 17:04:59
#411185
esse qttotaldedelinhas pode ser referenciado ao total de linha do datagridview ou outra variavel que contem a quantidade de linhas que ira retorna

se for do datagridview pode ser assim

dim i as integer

for i=0 to seudatagridview.Rows.Count -1

seudatagridview.Rows(i).Cells(0).Value=seutextbox1.text
seudatagridview.Rows(i).Cells(1).Value=seutextbox2.text
seudatagridview.Rows(i).Cells(2).Value=seutextbox3.text
seudatagridview.Rows(i).Cells(3).Value=seutextbox4.text

next i
ROBFERREIRAA 03/10/2012 17:36:40
#411189
ainda nada somente comleta o primeiro campo vou postar aqui o codigo completo

aqui leio o arquivo em excel

Private Function LerExcel(ByVal arquivo As String, ByVal nomeAba As String) As DataSet
Dim dts As New DataSet
[ô]String de Conexão
Dim conexao As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & _
[Ô]Data Source=[Ô] & _
arquivo & _
[Ô];Extended Properties=Excel 8.0;[Ô]
[ô]Comando SQL


Dim sql As String = [Ô]select * from [[Ô] + nomeAba + [Ô]][Ô]
Dim conn As OleDbConnection = Nothing

Try

conn = New OleDbConnection(conexao)
Dim cmd As New OleDbCommand(sql, conn)
Dim da As New OleDbDataAdapter(cmd)
[ô]Aqui Preenchemos o DataSet
da.Fill(dts)

Catch ex As Exception
MessageBox.Show([Ô]Erro na Leitura do Arquivo.[Ô])
Finally
If conn IsNot Nothing AndAlso conn.State = ConnectionState.Open Then
conn.Close()
End If

End Try

Return dts


End Function


aquioo botao para carregar

Private Sub btnImportacao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImportacao.Click
Dim arquivo As New OpenFileDialog
[ô]Abrimos a seleção do arquivo excel
arquivo.Filter = [Ô]Office Files|*.xls;*.xlsx[Ô]

If arquivo.ShowDialog = Windows.Forms.DialogResult.OK Then
DGRESTITUCAO.DataSource = LerExcel(arquivo.FileName, [Ô]Plan1$[Ô]).Tables(0)
[ô] passa txtbox para grid
[ô]DGRESTITUCAO.Rows(0).Cells(1).Value = mskdata.Text
End If

Dim i As Integer
For i = 0 To DGRESTITUCAO.Rows.Count - 1
DGRESTITUCAO.Rows(0).Cells(1).Value = mskdata.Text


Next i


End Sub
ALTAIR148 03/10/2012 17:39:25
#411190
Amigo você está fazendo errado, repare nesse trecho

For i = 0 To DGRESTITUCAO.Rows.Count - 1
            DGRESTITUCAO.Rows(0).Cells(1).Value = mskdata.Text


        Next i


Você está pegando a linha 0(Primeira linha do datagrid) apenas, teria que ser assim

For i = 0 To DGRESTITUCAO.Rows.Count - 1
            DGRESTITUCAO.Rows(i).Cells(1).Value = mskdata.Text


        Next i


O indice do laço é o i

Ao pontuar não se esqueça que fiz apenas uma pequena correção... O código é mérito do amigo ROBSON220BASS

Abraços.
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar