主题：[求助]定位列

Dim t As Table = Tables("表A")
For Each c As Col In t.cols
    If c.IsString AndAlso c.name.Contains("第三") Then
        t.Select(t.rowsel,c.index)
    End If
Next

参考：
http://www.foxtable.com/webhelp/scr/1375.htm

http://www.foxtable.com/webhelp/scr/0569.htm

此外帮助至少有两个类似的例子：

http://www.foxtable.com/webhelp/scr/3117.htm

http://www.foxtable.com/webhelp/scr/1134.htm