******************************************************************** * Description.......: Page2.Activate * Calling Samples...: * Parameter List....: * Created by........: * Modified by.......: Nadya Nosonovsky 05/31/2000 05:41:31 PM ******************************************************************** thisform.dataenvironment.initialselectedalias="IndxDict" select IndxDict with this if type("this.ContIndxPage")<>"O" .newobject("ContIndxPage","IndxDictPage","ddwg.vcx") with .ContIndxPage .top=5 .left=20 .visible=.t. set step on local loColumn, lcCaption for each loColumn in .grdIndxDict.Columns lcCaption = loColumn.Header1.Caption loColumn.removeobject('Header1') loColumn.NewObject('Header1','myheader','myheader.prg',,m.lcCaption) next endwith endif .refresh() thisform.navstand.navupdate() thisform.navstand.lstOrders.enable() .ContIndxPage.grdIndxDict.setfocus() endwithLine with NewObject generates an Error : Object name is invalid (Error 1575)