PEGAR INFORMACOES SOMENTE DE 1 COLUNA DO DATAGRID
Pessoal bom dia!
Estou montando um programa e nele possuo uma data Grid a qual possui 4 colunas:
Coluna1 Coluna2 Coluna3 Coluna4
[txt-color=#e80000]1[/txt-color] Paula Professora 13/02/1976
[txt-color=#e80000]2[/txt-color] Samuel Analista 16/04/2000
[txt-color=#e80000]3[/txt-color] Emanuel Contador 06/11/2009
A Datagrid1 está montada como exemplo acima os dados já estão nela e possui estes registros, agora preciso pegar as informações da Coluna1 somente e guardar numa variável para utilizar em outro processo, nesta variável teria que guardar assim (1,2,3,etc...).
Obrigado desde já.
Estou montando um programa e nele possuo uma data Grid a qual possui 4 colunas:
Coluna1 Coluna2 Coluna3 Coluna4
[txt-color=#e80000]1[/txt-color] Paula Professora 13/02/1976
[txt-color=#e80000]2[/txt-color] Samuel Analista 16/04/2000
[txt-color=#e80000]3[/txt-color] Emanuel Contador 06/11/2009
A Datagrid1 está montada como exemplo acima os dados já estão nela e possui estes registros, agora preciso pegar as informações da Coluna1 somente e guardar numa variável para utilizar em outro processo, nesta variável teria que guardar assim (1,2,3,etc...).
Obrigado desde já.
Pessoal bom dia!
Consegui resolver da seguinte forma
Dim descricao As String
If Not (tabAuxiliar1.EOF And tabAuxiliar1.BOF) Then
tabAuxiliar1.MoveFirst
i = 0
While Not tabAuxiliar1.EOF
If i = 0 Then
descricao = tabAuxiliar1(1)
Else
descricao = descricao & [Ô],[Ô] & tabAuxiliar1(1)
End If
tabAuxiliar1.MoveNext
i = i + 1
Wend
Else
End If
codreserva = descricao
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Consegui resolver da seguinte forma
Dim descricao As String
If Not (tabAuxiliar1.EOF And tabAuxiliar1.BOF) Then
tabAuxiliar1.MoveFirst
i = 0
While Not tabAuxiliar1.EOF
If i = 0 Then
descricao = tabAuxiliar1(1)
Else
descricao = descricao & [Ô],[Ô] & tabAuxiliar1(1)
End If
tabAuxiliar1.MoveNext
i = i + 1
Wend
Else
End If
codreserva = descricao
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
Tópico encerrado , respostas não são mais permitidas