1、列名不能修改,只能修改标题;
2、定义一个字典来用
Dim dic As new Dictionary(Of String, String)For Each c As Col In Tables(bb).cols dic.add(c.Caption, c.Name)Next
dt.DataCols.Add("上班天数",Gettype(Double), dic("上班") & "/ 8")
dt.DataCols.Add("加班天数",Gettype(Double), dic("加班") & "/ 8")
dt.DataCols.Add("请假天数",Gettype(Double), dic("请假") & "/ 8")