EWERTON
|
DIVINÓPOLIS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 12/08/2004 08:13 hs
Estou querendo uma rotina que quando eu clicar em uma determinada celula e pega o valor da celula e coloca em uma variavel. |
|
|
|
|
|
|
|
Postada em 12/08/2004 08:22 hs
no evento entercell do flexgrid faça MsgBox MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, MSHFlexGrid1.Col) |
|
|
|
EWERTON
|
DIVINÓPOLIS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/08/2004 08:47 hs
Não deu certo não, eu quero pegar qualquer linha e uma determinada coluna. |
|
|
|
|
|
Postada em 12/08/2004 11:51 hs
Private Sub Grid_Click()
Dim X As Integer
With Me
X = .Grid.RowSel 'pega a linha do grid clikada
msgbox .Grid.TextMatrix(X, 0) 'mostra o conteudo da linha clicada e da coluna 0
end with end sub |
|
|
|
|
|
Postada em 12/08/2004 13:17 hs
Tente isto... No Form_Load() Private Sub Form_Load()
Dim i, Cont As Integer Grid.TextMatrix(0, 0) = 1
Grid.TextMatrix(1, 0) = 2
Grid.TextMatrix(2, 0) = 3
Grid.TextMatrix(3, 0) = 4
Grid.TextMatrix(4, 0) = 5
End Sub
No Click do FlexGrid... Private Sub Grid_Click()
Dim valor As String valor = Grid
MsgBox valor
End Sub
e o valor selecionado será retornado... Espero ter ajudado...
Ewerton Oliveira
|
|
|
|
Jorge
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 12/08/2004 22:25 hs
Private Sub MSFlexGrid1_Click()
On Error GoTo Erro
'mostra registro nos campos
msk_Previsao.Text = Format(MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 17), "DD/MM/YYYY")
msk_Pagamento.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 10)
msk_Vencimento.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2)
Exit Sub Erro:
MsgBox Err.Description
End Sub
|
|
|
|
