- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何粘贴为多行文本 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132100)
-- 发布时间：2019/3/13 22:15:00
-- [求助]如何粘贴为多行文本
如图（临时借用本论坛的），如何选择红框中的多行，粘贴到蓝框中成为多列。
此主题相关图片如下：yy1dnum201810192318543.jpg
-- 发布时间：2019/3/13 22:46:00
--
1、你直接复制粘贴，就可以了吧？
2、如果要用代码获取和赋值，参考代码
Dim t As Table = Tables("表A")
Dim str As String = ""
For i As Integer = t.TopPosition To t.BottomPosition
Dim r As Row = t.Rows(i)
str &= r("第一列") & vbcrlf
Next
msgbox(str)
-- 发布时间：2019/3/14 1:15:00
--
1、直接复制粘贴，文本框的字符串不换行。
2、实现。
谢谢。
-- 发布时间：2019/3/14 9:39:00
--
你表格的keyup事件，写代码，如
If e.control = True AndAlso e.keycode = keys.c Then
ClipBoard.SetText(ClipBoard.GetText.Replace(chr(13), vbcrlf))
End If