Error en _GridEx_DeleteColumnEx

HMG Unicode versions 3.1.x related

Moderator: Rathinagiri

Post Reply
User avatar
koke
Posts: 116
Joined: Wed Aug 21, 2013 3:54 pm
DBs Used: DBF, mySql, mariaDB

Error en _GridEx_DeleteColumnEx

Post by koke »

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])
Attachments
error gridex.png
error gridex.png (11.86 KiB) Viewed 1898 times
,___,
[O.o]
/)__)
-”–”-
KoKe
Post Reply