给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