主题：如何将一个表的一列通过集合赋值给另一个表一列

Dim sku As List(Of String)
sku = DataTables("系统数据").GetValues("款号")
For Each sku_s As String In sku
    DataTables("表名").DataCols("列名")=sku_s

提示为只读属性

新增行：

Dim sku As List(Of String)
sku = DataTables("系统数据").GetValues("款号")

DataTables("表名").DataRows.Clear()
For Each sku_s As String In sku
    Dim r As Row = Tables("表名").AddNew()
    r("列名") = sku_s
Next

原有行：

Dim sku As List(Of String)
sku = DataTables("系统数据").GetValues("款号")

For i As Integer = 0 To sku.Count - 1

     For j As Integer = 3 to 3 + sku.Count - 1
          IF j = i + 3 Then

               Tables("表名").Rows(j)("列名") = sku(i)

          End If

     Next

Next