Foxtable(狐表)用户栏目专家坐堂 → 如何将某个表的所有行数据,全部按照字段列顺序,逐行拼接成一个整体内容呢?


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

主题:如何将某个表的所有行数据,全部按照字段列顺序,逐行拼接成一个整体内容呢?

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


加好友 发短信
等级:三尾狐 帖子:649 积分:5736 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2022/1/10 19:15:00 [显示全部帖子]

用集合,转为数组后用join
http://www.foxtable.com/webhelp/topics/1423.htm

 回到顶部
帅哥哟,离线,有人找我吗?
liufucan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:5736 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2022/1/10 20:11:00 [显示全部帖子]


试试这个Dim Names As New List(Of String)

Dim Names2 As New List(Of String)
For Each r As Row In Tables("报告明细")
Names.clear
    For Each r1 As Col In Tables("报告明细").Cols
        Dim s As String
        
        s = r(r1.DataCol.Name)
        if s<>"" then
Names.add(s)
end if
        
    Next
Names2.add(string.join(",",Names.toarray))
Next
msgbox(string.join(";",Names2.toarray))
[此贴子已经被作者于2022/1/10 20:11:46编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
liufucan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:5736 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2022/1/10 20:51:00 [显示全部帖子]

Dim Names As New List(Of object)

Dim Names2 As New List(Of object)
For Each r As Row In Tables("报告明细")
Names.clear
    For Each r1 As Col In Tables("报告明细").Cols
        
        
        
        if  r.isnull(r1.DataCol.Name)=false  then
Names.add(r(r1.DataCol.Name))
end if 
        
    Next
Names2.add(string.join(",",Names.toarray))
Next
msgbox(string.join(";",Names2.toarray))
[此贴子已经被作者于2022/1/10 20:53:31编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
liufucan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:5736 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2022/1/10 21:06:00 [显示全部帖子]

r.index

 回到顶部
帅哥哟,离线,有人找我吗?
liufucan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:649 积分:5736 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2022/1/10 21:58:00 [显示全部帖子]

不是已经实现你的要求了吗?还要怎么改?

 回到顶部