手動建立DataTable
'Step1 建立空白資料表格DataTable 注意:請先引用 System.Data 命名空間,因為 DataTable 是被定義在該命名空間中 Dim dt As New DataTable 'Step(2)建立欄位資訊 dt.Columns.Add("序號") dt.Columns.Add("年度") 'Step3 建立資料 Row '由於Row的建立,必須取出DataTable的欄位資訊,所以不可以使用new來建立空白的Row,必須透過DataTable的NewRow()方法來取得一筆有欄位資訊的Row '取出新的Row後,填入適當的資料,再透過DataTable中的Rows集合裡的Add()方法將Row附加到DataTable中。 Dim row As DataRow For i = 0 To 4 row = dt.NewRow() row(0) = i row(1) = Cint(Now.ToString("yyyy"))+1 '假設現在是2014年 dt.Rows.Add(row) Next ----------結果------------------------ 1 2014 2 2015 3 2016 4 2017 5 2018