Hola Puedes usar este codigo en elvento cliked de la dw
Hay otros ejemplos que ahora no los tengo
Espero te Sirva o ayude
Suerte
LS_Col =string(This.GetObjectAtPointer()) for LI_Pos=1 to len(LS_Col) If Mid(LS_Col,LI_Pos,1) = ' ' then LI_Pos = len(LS_Col) LS_Columna = mid(LS_Columna,1,len(LS_Columna) - 2) Else LS_Columna = LS_Columna + Mid(LS_Col,LI_Pos,1) end if next This.SetSort(LS_Columna+" A") This.Sort( )