可以看看:
http://www.foxtable.com/help/topics/0917.htm
其实和帮助一样,只是将最后一行代码:
Tables("订单").Filter = Filter
改为:
Tables("订单").Position = Tables("订单").Findrow(Filter)