[OFF] EDICAO NO GRID. PERMITIR OU NAO?

Citação:

:
pois é... isso sempre foi um problema... como trato um erro no grid.. tipo o campo é numerico e o cara vai editar texto no grid?
eu nunca deixo editar diretamente no mesmo, é sempre uma segunda tela.

Citação:

:
pois é... isso sempre foi um problema... como trato um erro no grid.. tipo o campo é numerico e o cara vai editar texto no grid?
eu nunca deixo editar diretamente no mesmo, é sempre uma segunda tela.

Private Sub grid_KeyDown(KeyCode As Integer, Shift As Integer)
[ô]aqui são apagados todos caracteres da cellula ao clicar em DEL
  Select Case KeyCode
    Case 46                 [ô]<Del>, apaga celula
        grid.Tag = grid
        grid = [Ô][Ô]
  End Select
End Sub

Private Sub grid_KeyPress(KeyAscii As Integer)
[ô]abaixo as teclas pressionadas são capturadas por Keyascii
[ô]e lançadas no flexgrid
    Select Case KeyAscii
        Case 13            [ô]Tecla ENTER
            Advance_Cell   [ô]Avancar para nova cellula
        Case 8             [ô]Backspace
            If Len(grid) Then
              grid = Left$(grid, Len(grid) - 1)
            End If
        Case 27                      [ô]ESC
            If grid.Tag > [Ô][Ô] Then   [ô]Se todos forem NULL
              grid = grid.Tag      [ô]Retorna ao texto original
            End If
       Case Else
   grid = grid + Chr(KeyAscii)
    End Select
End Sub

Private Sub Advance_Cell()                  [ô]Avancar para proxima cellula
    With grid
        .HighLight = flexHighlightNever
        If .Col < .Cols - 3 Then
          .Col = .Col + 1
        Else
          If .Row < .Rows - 1 Then
            .Row = .Row + 1                 [ô]Desce uma linha
            .Col = 1
          Else
            .Row = 1
            .Col = 1
          End If
        End If
        If .CellTop + .CellHeight > .Top + .Height Then
          .TopRow = .TopRow + 1
        End If
        .HighLight = flexHighlightAlways
    End With
End Sub