添加列：dtData.Columns.Add("XXX")
遍历：
For Each row As DataRow In dtData.Rows
‘获取指定列的值 Dim aaa As String = row.Item("列名")
’赋值..row.Item()可以通过列名和index获取
row.Item("列名") = "XXX" Next
