主题：动态更改列标题

 方法一：

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

 方法二：

Dim t As Table = Tables("表A")
Dim r As Row = t.Rows(t.Rows.count)
r("第五列") = 123
r("第四列") = 789