>Public oHandler >oHandler = Newobject( "myhandler" ) >Bindevent(PDU_FCTEXM.Pageframe1.Udcpage3.Grid1,"Init",oHandler,"mygridinit",1) > >For i=1 To PDU_FCTEXM.Pageframe1.Udcpage3.Grid1.ColumnCount > If Inlist(i,1,2,3,4,5,6,7,8,9,10,11) &&choice only the column to sort asc/descending-grid can have any columnCount > aa="PDU_FCTEXM.Pageframe1.Udcpage3.Grid1.column"+Trans(i)+".header1" > Bindevent(&aa,"click",oHandler,"mygridinit",1) > Endif >Endfor > > >Define Class myhandler As Session > Procedure mygridinit > x=Sys(1270) > N=val(right(allt(x.name),1)) > > Select myBolistex > If Val(Sys(21))<>N && current index number > Set Order To N In myBolistex > Else > If Descending(N,"myBolistex") > Set Order To N In myBolistex Ascending > > Else > Set Order To N In myBolistex Descending > > Endif > ENDIF > > Go Top In myBolistex > PDU_FCTEXM.Pageframe1.Udcpage3.Grid1.Refresh > PDU_FCTEXM.Pageframe1.Udcpage3.Grid1.SetFocus > Endproc > >Enddefine >>
set order to 5on a table with 3 tags and got the same error.