Foxtable(狐表)用户栏目专家坐堂 → 多值字段转换问题


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

主题:多值字段转换问题

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


加好友 发短信
等级:五尾狐 帖子:1172 积分:8772 威望:0 精华:0 注册:2012/4/18 16:28:00
多值字段转换问题  发帖心情 Post By:2018/12/28 14:37:00 [只看该作者]

请教老师,以下代码为例,想把TextBox1的多值内容(A,B,C)经转换后在TextBox2(多行文本)中

 

显示为

        A

        B

        C

 

Dim tb As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim st1 As String = e.Form.Controls("TextBox2").Value
Dim st2() As String = st1.split(",")  '& vbcrlf 不能在此设置
For Index As Integer = 0 To st2.Length - 1
    tb.value & = st2(Index)
Next

 

此代码,转换后在TextBox并没有实现拆分显示,不知在哪里设 & vbcrlf


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/28 15:56:00 [只看该作者]

直接替换即可

 

Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim tb2 As WinForm.TextBox = e.Form.Controls("TextBox2")
tb2.value = tb1.text.replace(",", vbcrlf)


 回到顶部