以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194476)

--  作者：rongping --  发布时间：2024/12/13 21:21:00 --  代码求助 我想在一个窗口中通过一个按钮事件将一个table中经过筛选的某一列数据全部格式化到一个文本框，要求每一条数据在文本框中自动换行并且换行后能自动空一行，每一条数据加上数字序号，这个代码怎么写？

--  作者：有点蓝 --  发布时间：2024/12/14 9:05:00 --   Dim s As String = DataTables("表A").GetComboListString("第一列", Tables("表A").Filter) Dim ss() As String = s.Split("|") s = "" For i As Integer = 0 To ss.Length - 1     s = s & vbCrLf & vbCrLf & (i + 1) & "、" & ss(i) Next s = s.Trim(vbCrLf) Output.Show(s)