在交叉代码的后面加上下面的代码即可。
With DataTables("统计表1") For Each dc As DataCol In .DataCols .DataCols(dc.name).Caption = dc.Caption.Split(" ")(0) .BuildHeader() NextEnd With
加好友 
发短信
Post By：2012/10/21 21:27:00 [显示全部帖子]
