以文本方式查看主题 - 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=170894) |
-- 作者:wangglby -- 发布时间:2021/8/10 16:55:00 -- 复制粘贴后出现表格外的内容 用以下代码把选中的数据加到剪切板,粘贴后会多出1列
比如 第一列 第二列
1111 2222
选中这2个单元格,用以下代码复制后, 粘贴后变成了 1111 false 2222
请问这怎么解决?
Dim t As Table = CurrentTable
Dim ss As new StringBuilder
For i As Integer = t.TopPosition To t.BottomPosition
Dim s As String =""
For j As Integer = t.LeftCol To t.rightcol
s = s & t.Rows(i)(j) & vbtab
Next
ss.AppendLine(s.Trimend(vbtab))
Next
ClipBoard.SetText(ss.ToString)
|
-- 作者:有点蓝 -- 发布时间:2021/8/10 16:59:00 -- 测试没有问题,请上传实例说明 |
-- 作者:wangglby -- 发布时间:2021/8/10 17:05:00 -- 代码没问题,是不是表格的列的顺序有什么要求,比如 第一列和第二列中间有个第三列,而第三列被移到其他地方了,复制的时候是不是一起给复制了? |
-- 作者:有点蓝 -- 发布时间:2021/8/10 17:17:00 -- 不会 |