HMGforum.com

Posted: **Wed Jul 25, 2018 11:03 pm**

Buenas tardes.
Tengo un problema al utilizar la función _GridEx_DeleteColumnEx.
Las columnas se crearon de manera dinámica con AddColumnEx y está funcionando correctamente pero cuando trato de borrar las columnas me marca error.
Estoy utilizando hmg 3.4.3.

Google Translate

Good afternoon.
I have a problem using the _GridEx_DeleteColumnEx function.
The columns were created dynamically with AddColumnEx and it is working correctly but when I try to delete the columns it marks me an error.
I am using hmg 3.4.3.

Esta parte de la función que esta en h_GridEx.prg es la siguiente: / This part of the function that is in h_GridEx.prg [/ b] is the following:

Code: Select all

IF nControl == _GRID_COLUMN_ONHEADCLICK_ .OR. nControl == _GRID_COLUMN_HEADER_ .OR. nControl == _GRID_COLUMN_HEADER2_ .OR. nControl == _GRID_COLUMN_HEADERIMAGE_ .OR. nControl == _GRID_COLUMN_JUSTIFY_
      IF Valtype (_HMG_SYSDATA [ nControl ] [i]) == "A"
         FOR k = 1 TO nColumnCount
             IF Valtype (_HMG_SYSDATA [ nControl ] [i] [k]) == "U"
                _HMG_SYSDATA [ nControl ] [i] [k] := DefaultData
             ENDIF
         NEXT
      ENDIF
   ELSE
      IF Valtype (_HMG_SYSDATA [ 40 ] [ i ] [ nControl ]) == "A"
         FOR k = 1 TO nColumnCount
             IF Valtype (_HMG_SYSDATA [ 40 ] [ i ] [ nControl ] [k]) == "U"
                _HMG_SYSDATA [ 40 ] [ i ] [ nControl ] [k] := DefaultData
             ENDIF
         NEXT
      ENDIF       
   ENDIF

Esto es lo que marca error: / This is what marks error:

Code: Select all

Valtype (_HMG_SYSDATA [ nControl ] [i] [k])

HMGforum.com

Error en _GridEx_DeleteColumnEx

Error en _GridEx_DeleteColumnEx