- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老师们看看这个问题 换行符vbcrlf 和chr(10) & chr(13) (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8657)
-- 发布时间：2010/11/22 17:42:00
-- 老师们看看这个问题 换行符vbcrlf 和chr(10) & chr(13)
通过代码将剪贴板上的内容粘贴到表中，为何换行符 vbcrlf 和 chr(10) & chr(13) 两个结果不一样，怎么解释呢？
请耐心点看完：（中间我点击了一次还原按钮）
此主题相关图片如下：paste+.gif
附上代码，大家可以测试一下。。。。
Dim s As String = "aaaaaa 15000" & vbcrlf & "bbbbbb 10000" & _
vbcrlf & "cccccc 10000" & vbcrlf & "dddddd 5000"
ClipBoard.SetText(s)
CurrentTable.Select(0,0)
CurrentTable.focus
\'Application.DoEvents
Syscmd.Edit.Paste()
Application.DoEvents
output.show(CurrentTable.rows(1)("第一列"))
output.show(CurrentTable.rows(2)("第一列"))
output.show(CurrentTable.rows(3)("第一列"))
-- 发布时间：2010/11/22 19:45:00
--
此主题相关图片如下：l2.jpg
我这结果不一样，怎么回事？
而且全贴在第一列
-- 发布时间：2010/11/22 20:57:00
--
vbcrlf应该是chr(13) + chr(10)，和chr(10) +chr(13)顺序不同
-- 发布时间：2010/11/22 21:06:00
--
估计老六只取回车符来，现在可这样
因数据贴到论坛时会自动将tab换成空格，所以改成下面这样方便大家测试。
Dim s As String = "aaaaaa" & vbTab & "15000" & vbCr & "bbbbbb" & vbTab & "10000" & _
vbCr & "cccccc" & vbTab & "10000" & vbCr & "dddddd" & vbTab & "5000"
ClipBoard.SetText(s)
CurrentTable.EditPaste()
-- 发布时间：2010/11/22 22:29:00
--
其实，用 vbcrlf 后粘贴的数据都在单元格中，将行高拉大些就可以看到了，就是第一个单元格不设置行高也可以看到，而它下面的三个格子不知道多了什么，非要拉开行距才可以看到，郁闷之。。。
此主题相关图片如下：未命名1.jpg
哈哈： 这个 vbTab 、vbCr不错···
-- 发布时间：2010/11/23 7:45:00
--
呵呵，那是因为前面多了个vblf，也就是空行，所以你要拉高点。
我改改，自动去掉vblf算了