方法一:列设置那里,加上下面的代码
asc(mid(乡,1,1))+asc(mid(乡,2,1))+asc(mid(乡,3,1)) as _Sortkey
方法二:你在afterOpenProject事件写代码
Tables("表A").Sort = "乡"