Dim Cols1() As String = {"2017-01","2017-02","2017-03","2017-04","2017-05","2017-06","2017-07","2017-08","2017-09","2017-10","2017-11","2017-12"}
Dim dtb As New DataTableBuilder("预计损益表1")
dtb.AddDef("项目分类", Gettype(String), 32)
For c As Integer=0 To Cols1.length-1
dtb.AddDef(Cols1(c), Gettype(String), 32)
Next
Tables("预计损益表_Table1").DataSource= dtb.Build()