给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(i).Item("1") = "1"   '为新加列赋值
        Next