MSFLEXGRID ME AJUDEM
Private Sub Check1_Click()
If Check1.Value = 1 Then
Grid1.AddItem [Ô]Alho e Oleo[Ô]
Grid1.Rows = Grid1.Rows + 0
Else
Grid1.Rows = Grid1.Rows - 1
Exit Sub
End If
End Sub
Meu grid contem varios campos, o problema é q quando eu add os itens eles não aparecem nos seus respectivos campos,
Exemplo:
O Nome é preenchido no campo do codigo, ou o tamanho é preenchido no valor etc...
tem q ser aleatoriamente, naum pode seguir uma regra p q senão os itens são preenchidos um em cima do outro.
If Check1.Value = 1 Then
Grid1.AddItem [Ô]Alho e Oleo[Ô]
Grid1.Rows = Grid1.Rows + 0
Else
Grid1.Rows = Grid1.Rows - 1
Exit Sub
End If
End Sub
Meu grid contem varios campos, o problema é q quando eu add os itens eles não aparecem nos seus respectivos campos,
Exemplo:
O Nome é preenchido no campo do codigo, ou o tamanho é preenchido no valor etc...
tem q ser aleatoriamente, naum pode seguir uma regra p q senão os itens são preenchidos um em cima do outro.
Citação:Meu grid contem varios campos, o problema é q quando eu add os itens eles não aparecem nos seus respectivos campos,
Poste o código que está usando para tal.
Cara
é assim
Grid.TextMatrix (X, Y) = Text1.text
Onde X é a linha que vc quer e Y a coluna
Mas eles tem que ser preenchidos aleatoriamente, entende, o item da caixa d texto tem q ir para o grid ser ter sido configurado pq senão conforme eu for ADD os itens ficampor cima do outro, compreende????
exemplo:
Se a linha no grid estiver preenchida, o proximo item tem que ir automaticamente para a outra linha, senão estiver preenchida pode preencher a mesma. entendeu??????
Obrigado pela ajuda.
exemplo:
Se a linha no grid estiver preenchida, o proximo item tem que ir automaticamente para a outra linha, senão estiver preenchida pode preencher a mesma. entendeu??????
Obrigado pela ajuda.
blza, vou tentar c der certo volto a postar.
Obrigado por enquanto.
Obrigado por enquanto.
Putz kra, naum deu muito certo,
naum consegui resolvero problema no grid.
mas valeu pela atenção.
naum consegui resolvero problema no grid.
mas valeu pela atenção.
Private Sub Command1_Click()
MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = Text1.text
End Sub
OLHA TENTA ASSIM TAMBEM
Private Sub Command1_Click()
MSFlexGrid1.AddItem [Ô] [Ô] & vbTab & Text1 & vbTab & Text2 & vbTab & Text3
End Sub
QUALQUER DUVIDA SOBRE VB6
josias.demelo@gmail.com
beleza
Private Sub Command1_Click()
MSFlexGrid1.AddItem [Ô] [Ô] & vbTab & Text1 & vbTab & Text2 & vbTab & Text3
End Sub
QUALQUER DUVIDA SOBRE VB6
josias.demelo@gmail.com
beleza
Tópico encerrado , respostas não são mais permitidas