Foxtable(狐表)用户栏目专家坐堂 → 代码求助


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

主题:代码求助

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


加好友 发短信
等级:小狐 帖子:377 积分:3244 威望:0 精华:0 注册:2018/3/15 16:46:00
代码求助  发帖心情 Post By:2024/12/13 21:21:00 [只看该作者]

我想在一个窗口中通过一个按钮事件将一个table中经过筛选的某一列数据全部格式化到一个文本框,要求每一条数据在文本框中自动换行并且换行后能自动空一行,每一条数据加上数字序号,这个代码怎么写?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111375 积分:566939 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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)

 回到顶部