以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教 textbox 中,如何换行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185924)

--  作者:yuchunlnog
--  发布时间:2023/3/25 19:03:00
--  求教 textbox 中,如何换行
数据库查询到的结果是3行:
质控部   于    同意   20230326
护理部  张三  同意   20230235
医务科  王五  同意   20233323

Do While i < count1
    MessageBox.show(text1.Text)
    text1.value =  text1.value + dt1.DataRows(i)("actualname") & " " & dt1.DataRows(i)("username") & " " & dt1.DataRows(i)("comment")  & " " & dt1.DataRows(i)("enddate") +"</BR>"
    i = i + 1
Loop

通过textbox控件 最后返回的结果是一行  。求问怎么样能让数据在文本框中按条显示之后加一个换行。


--  作者:hongsejiyi
--  发布时间:2023/3/25 19:12:00
--  
 text1.Text = "abcd" & vbCrLf & "CDEF" & vbCrLf & "XYZJ"


--  作者:有点蓝
--  发布时间:2023/3/26 20:05:00
--  
Do While i < count1
    MessageBox.show(text1.Text)
    text1.Text=  text1.Text & vbCrLf  &  dt1.DataRows(i)("actualname") & " " & .......

--  作者:yuchunlnog
--  发布时间:2023/3/28 1:56:00
--  
感谢老师解答