以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于集合的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50138)
--  作者：zstk7333
--  发布时间：2014/4/30 0:07:00
--  关于集合的问题

我想在“整合”表中的“电话号码”列列出集合的各个元素，以下编码问题出在哪里？请指教，谢谢

Dim values As List(of String)
values = DataTables("叠加").GetValues("电话号码")
Dim dtb As New DataTableBuilder("整合")
dtb.AddDef("电话号码", Gettype(String), 32)
dtb.Build()
MainTable= Tables("整合")
Dim i As Integer = values.Count
For Each value As String In values
    For int1 As Integer = 0 To i-1
        Tables("整合").AddNew()
        Tables("整合").Rows(Int1)("电话号码") = values
    Next
Next
--  作者：y2287958
--  发布时间：2014/4/30 6:22:00
--  
这个意思？

Dim values As new List(of String)
values = DataTables("叠加").GetValues("电话号码")
Dim dtb As New DataTableBuilder("整合")
dtb.AddDef("电话号码", Gettype(String), 32)
dtb.Build()
MainTable= Tables("整合")
Dim i As Integer = values.Count
For Each value As String In values
    Dim r As Row = Tables("整合").AddNew()
    r("电话号码") = value
Next