Dim dt As DataTable = tb.DataTable 这样声明也试过
If dt.DataCols.Contains("月数") = False Then dt.DataCols.Add("月数", Gettype(Double))