以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将一个表的一列通过集合赋值给另一个表一列  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=47523)
--  作者：阆子天涯
--  发布时间：2014/3/11 22:52:00
--  如何将一个表的一列通过集合赋值给另一个表一列

 

 

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


Next

 

提示为只读属性
--  作者：lsy
--  发布时间：2014/3/12 7:53:00
--  

新增行：

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
--  作者：阆子天涯
--  发布时间：2014/3/12 11:44:00
--  
我试用一下！很好，非常感谢！