给datatable中添加新列并赋值的方法

给datatable中添加新列并赋值的方法

       Dim  dtblREPORT  As  DataTable
        dtblREPORT  =  SelectREPORT()  ' 执行的某次查询
         Dim  a  As   New  Data.DataColumn
        a.ColumnName  =   " 新加的列 "     ' 新加列的headerName
        dtblREPORT.Columns.Add(a)

         For  u  As   Integer   =   0   To  dtblREPORT.Rows.Count  -   1
            dtblREPORT.Rows(u).Item( " 1 " )  =   " 1 "     ' 为新加列赋值
         Next