PEGAR VALORES DO MSFLEXGRID VB6

ROBSON220BASS 07/07/2010 16:09:43
#346789
boa tarde pessoal..

tenho um msflexgrid1 onde sao carregados os dados que preciso , exemplo(numtrans, codoperador, numcaixa, etc...)

numtrans codoperador numcaixa
1 100 1
1 101 2
1 102 3
1 103 4

minha duvida e o seguinte:

como copiar os valores que estao na coluna ( numcaixa) , para um textbox com o seguinte formato:


1,2,3 e 4

ou seja o resultado final no textbox sera : 1,2,3 e 4


alguem pode ajudar por favor

obrigado!
JANDER 07/07/2010 17:35:14
#346798
for x =1 to msflexgrid1.rows -1
text.text = text1.text & msflexgrid1.textmatrix(msflexgrid1.row,2) & [Ô],[Ô]
next x
MARCELO.TREZE 07/07/2010 17:38:16
#346799 Resposta escolhida
assim

Dim Linha As String
With MSFlexGrid

For L = 1 To .Rows - 1
If L < .Rows - 1 Then
Linha = Linha & .TextMatrix(L, 2) & [Ô],[Ô] 
Else
Linha = Linha & .TextMatrix(L, 2)
End If
Next L

End With
ROBSON220BASS 07/07/2010 17:58:04
#346805
valeu MARCELO-TREZE


agora deu certo

Obrigado!
MARCELO.TREZE 07/07/2010 17:59:34
#346806
Robson encerra o tópico por favor, e disponha.
Tópico encerrado , respostas não são mais permitidas
Voltar