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( )