以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  GetComboListString统计后的分割符  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191896)

--  作者:timber83
--  发布时间:2024/5/14 15:35:00
--  GetComboListString统计后的分割符
GetComboListString("内容", Filter).replace("|", "    "),这里如果需要使用换行符,应该如何写
--  作者:有点蓝
--  发布时间:2024/5/14 15:49:00
--  
vbcrlf:http://www.foxtable.com/webhelp/topics/0347.htm
--  作者:timber83
--  发布时间:2024/5/14 21:05:00
--  
If e.DataCol.Name = "条款码" Then
    Dim Filter As String = "[条代码] = \'" & e.NewValue & "\'"
    e.DataRow("条款内容") = DataTables("依据内容码").GetComboListString("内容", Filter).replace("|", "  ")
End If
  我需要合并后,能分行,该怎么改,求帮忙

--  作者:有点蓝
--  发布时间:2024/5/14 21:12:00
--  
e.DataRow("条款内容") = DataTables("依据内容码").GetComboListString("内容", Filter).replace("|", vbcrlf)
--  作者:timber83
--  发布时间:2024/5/15 8:23:00
--  
非常感谢
换行后,还要加入序号,又要怎么改代码呢?

--  作者:有点蓝
--  发布时间:2024/5/15 8:34:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=191895
--  作者:timber83
--  发布时间:2024/5/15 15:45:00
--  
上面的解答我看了,是合并文本时按照序号进行排序
我想问的,在文本合并统计后,原先文本没有序号的,想着能不能通过代码,自动增加序号(根据文本的行数增加) 
--  作者:有点蓝
--  发布时间:2024/5/15 16:09:00
--  
dim ss() as stirng = DataTables("依据内容码").GetComboListString("内容", Filter).split("|")
Dim s As String 
For i As Integer = 0 To ss.length - 1
    s = s & vbcrlf & (i + 1) & "," & ss(i)
Next
e.DataRow("条款内容") = s.trim(vbcrlf )