IF UPPER(ALLTRIM(oActiveC.BaseClass)) = "GRID" * Name of the real ActiveControl: lcActiveControl = oActiveC.Columns[oActiveC.ActiveColumn].CurrentControl * object reference to ActiveColumn: oActiveC = oActiveC.Columns[oActiveC.ActiveColumn] * text string representing ActiveControl reference: lcJunk = "oActiveC." + lcActiveControl * object reference to the real ActiveControl: oActiveC = &lcJunk cFeltNavn = UPPER(oActiveC.parent.NAME) ENDIF
IF UPPER(oActiveC.BASECLASS) = "GRID" FOR i = 1 TO oActiveC.COLUMNCOUNT IF oActiveC.COLUMNS(i).COLUMNORDER = oActiveC.ACTIVECOLUMN oActiveC = oActiveC.COLUMNS(i) IF TYPE('oActiveC.combo1') == 'O' cFeltNavn = UPPER(oActiveC.NAME) oActiveC = oActiveC.combo1 ENDIF EXIT ENDIF NEXT ENDIFEveryone else probably noticed that but in case not...