你要针对关联表:
For Each cl As col In Tables("表A.表B").cols Select Case cl.Name Case "第一列","第二列","第三列" cl.Visible = False End SelectNext
其实方法很多,你可以看看:
http://www.foxtable.com/help/topics/2377.htm