Foxtable(狐表)用户栏目专家坐堂 → 关于集合的问题


  共有3499人关注过本帖树形打印复制链接

主题:关于集合的问题

帅哥哟,离线,有人找我吗?
zstk7333
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:328 积分:2960 威望:0 精华:0 注册:2011/5/3 20:21:00
关于集合的问题  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4633 积分:33809 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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

 回到顶部