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
Code: Select all
Valtype (_HMG_SYSDATA [ nControl ] [i] [k])