给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
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