如何将某个表的所有行数据，全部按照字段列顺序，逐行拼接成一个整体内容呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

当前《人员表》有如下五个字段，怎么实现按照这个五个字段的顺序拼接后，再将当前表中所有行数据进行拼接，形成一个整体的字符呢？

如：第一行张三身份证 52725 QQ号女生

第二行李四户口簿 62272 微信号男生

第三行不祥不祥不祥

……

拼接成张三，身份证，52725，QQ号，女生；李四，户口簿，62272，微信号，男生；不祥，不祥，【注意为空的不显示值和,号】

根据程老师的提示通过如下操作实现了遍历所有的行所有的列名下值但是拼接没有达到预期目标，请教各位老师！

怎么按照一楼的方式进行拼接呢？与输出呢？

For Each r As Row In Tables("报告明细")

For Each r1 As Col In Tables("报告明细").Cols

Dim s As String

'output.show(r(r1.DataCol.Name))

s = r(r1.DataCol.Name)

s= s & "," & s

output.show(s)

用集合，转为数组后用join

http://www.foxtable.com/webhelp/topics/1423.htm

根据楼上的提示

当前代码如下：

Dim s As String =""

'定义数组集合的时候,要在类型后加上括号,表示这是一个数组集合.

Dim Arys As List(Of String())

Arys = DataTables("报告明细").GetUniqueValues("", "对象姓名","证件种类","证件号码","目标或特定信息","备注")

'注意循环变量是字符型数组,所以类型是String(),而不是String

For Each Ary As String() In Arys

'Output.Show(Ary(0) & "," & Ary(1) & "," & Ary(2) & "," & Ary(3) & "," & Ary(4) )

s=Ary(0) & "," & Ary(1) & "," & Ary(2) & "," & Ary(3) & "," & Ary(4)

s &= ";"

output.show(s)

运行提示图：

怎么实现判断空值的话直接不显示，如输出结果就直接显示为不祥，不祥，不祥；就完成了

因为数据是两行那是否可以怎么显示对应的行数序号呢？

如：1，，，，；2,不祥，不祥，不祥；

效果2：

代码：

Dim s As String =""

Dim s1 As String =""

'定义数组集合的时候,要在类型后加上括号,表示这是一个数组集合.

Dim Arys As List(Of String())

'Arys = DataTables("报告明细").GetUniqueValues("编号='" & vars("编号") & "'", "对象姓名","证件种类","证件号码","目标或特定信息","备注")

Arys = DataTables("报告明细").GetUniqueValues("", "对象姓名","证件种类","证件号码","目标或特定信息","备注")

'注意循环变量是字符型数组,所以类型是String(),而不是String

For Each Ary As String() In Arys

s1 = String.Join(",", Ary)

s1 = s1 & ";"

output.show(s1)

运行结果如图：得到的结果是一样的

[此贴子已经被作者于2022/1/10 20:06:03编辑过]

Dim s As String

For Each r As Row In Tables("报告明细").rows

s = s & vbcrlf

For Each r1 As Col In Tables("报告明细").Cols

s= s & "," & r(r1.DataCol.Name)

output.show(s)

试试这个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

Names2.add(string.join(",",Names.toarray))

msgbox(string.join(";",Names2.toarray))

[此贴子已经被作者于2022/1/10 20:11:46编辑过]

老师输出得到的和楼上的代码一样没有连成一个完整的字符串而是根据行数生成了对应的三行

想实现不管有多少行，都组合成一行字符串，且在现有三行数据的每一行前面加上一个序号，1、……2、……3、……

老师好运行如图：

有没有办法取消红色圈的部分的断行操作呢？直接将所有的结果都输入为一个完整的字符串不需要中途换行

6楼代码去掉s = s & vbcrlf

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