以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  多值字段转换问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=129438)
--  作者：douglas738888
--  发布时间：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
--  作者：有点甜
--  发布时间：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)