vfp表格列排序有关问题_VFP

vfp表格列排序问题
vfp表单中的grid表格,如何用一个程序,一次将每一列的header加一个click程序,让用户点击header后,按列排序?是否可以用bindevent来实现,请各位将源码提供,谢谢!

------解决方案--------------------------------------------------------
给grid1指定完数据源的时候，加上

VB code

For Each LoColobj In Thisform.container1.grid1.Columns      Bindevent(LoColobj.Controls(1),"click",Thisform,"myClick")Endfor
------解决方案--------------------------------------------------------
myclick不要设参数
在myclick中，用sys(1270)引用所点击的对象
------解决方案--------------------------------------------------------
下面是我程序提取的一部分
VB codeFor Each LoColobj In Thisform.container1.grid1.Columns  &&我使用了容器控件      Bindevent(LoColobj.Controls(1),"click",Thisform,"myClick") &&myclick是自定义的方法，用来排序的Endfor