参考
http://www.foxtable.com/webhelp/scr/0662.htm
判断当前列,参考代码
Dim cname = e.table.cols(e.table.colsel).name
msgbox(cname)