Olá Pessoal,

Tô precisando utilizar um FlexGrid editável e não tenho experiencia
em tornar o grid editável. Pesquisei e peguei uma dica postada na
sessão de dicas aqui do VbWeb.

 

Gostaria de editar/trabalhar somente uma coluna do grid e a função
publicada edita qualquer celula disponível...

 

Como posso trabalhar só com uma coluna ?
   
Veja a função :

Private Sub MSFlexGrid1_EnterCell()
   text1.Visible = True
   text1.Top = MSFlexGrid1.Top + MSFlexGrid1.CellTop
   text1.Left = MSFlexGrid1.Left + MSFlexGrid1.CellLeft
   text1.Width = MSFlexGrid1.CellWidth
   text1.Text = MSFlexGrid1.Text
   text1.Visible = True
   text1.SetFocus
End Sub

 

Private Sub MSFlexGrid1_LeaveCell()
   If MSFlexGrid1.MouseCol <> 7 Then
     If text1.text <> "" Then
       text1.Visible = False
       MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = text1.text
     Else
       text1.Visible = False
       MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = "NÃO"
     End If
   End If
End Sub

Agradeço qualquer ajuda

 

JGD

oi

Você esta querendo tornar uma teterminada coluna editavel com uma caixa de texto?

se for isso, eu ja fiz algo parecido só que no evento click da grade.

olha o código

 

Private Sub GRADE_Click()
  On Error Resume Next 
  If grade.Col = 2 Then
    T.Visible = True
    T.Left = grade.Left + grade.CellLeft + 30
    T.Width = grade.CellWidth - 40
    T.Height = grade.CellHeight - 10
    T.Top = grade.CellTop + grade.Top + 10
    T.Text = grade.Text
    T.SetFocus
    Exit Sub
   End If
 End Sub

---

Private Sub T_Change()

grade.Text = T.Text

End Sub

 

Testa ai e depois fala se deu certo