你可以看看如何根据用户的输入合成条件:
http://www.foxtable.com/help/topics/1058.htm
至于排序,很简单,最后面加上一行:
Tables("表名").Filter = "列名"