Harap posting sesuai dengan Kategorinya agar anggota yang lain mudah dalam bernavigasi!
0 Members and 1 Guest are viewing this topic.
*just to add to put the code below in the header click event (better still subclass the grid):Local lcNdx,lcOrder,lcAlias,lnDotWith This If .Tag = 'A' lcOrder = 'Ascending' .Tag = 'D' Else lcOrder = 'Descending' .Tag = 'A' Endif lcNdx = .Parent.ControlSource lnDot = At('.',lcNdx) If lnDot > 0 lcNdx = Substr(lcNdx,lnDot+1) EndIf lcAlias = .Parent.Parent.RecordSource Select (lcAlias) Set Order To (lcNdx) &lcOrder locate .Parent.Parent.Refresh .Parent.Parent.SetAll('FontBold',.F.,'header') .FontBold = .T.Endwith*the above code will sort the column in ascending or descending order granting that you have an index set for that field.
ok mas, saya coba dulu. di grup FB KPFI saya dibantu mas Atmanegara, dibuatkan class baru, saya copas dan jalan lancar .. . makasih banyak atas info dan bantuannya.