- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- Excel单元格复制到Foxtable问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=114379)
-- 发布时间：2018/2/5 8:57:00
-- Excel单元格复制到Foxtable问题
Excel的一个单元格有多行文本，粘贴到Foxtable后，变成多行了，怎么解决呢？
此主题相关图片如下：20180205085500.gif
-- 发布时间：2018/2/5 9:22:00
--
你表格keydown事件，写下面代码
If e.control = True AndAlso e.keycode = keys.v Then
Dim str As String = ClipBoard.GetText
Dim nstr As String = ""
Dim tempstr As String = ""
Dim flag As Boolean = False
For i As Integer = 0 To str.length - 1
If str(i) = """" Then
If i = 0 OrElse str(i-1) = chr(9) OrElse str(i-1) = chr(10) Then \'开始
flag = True
ElseIf i = str.length-1 OrElse str(i+1) = chr(9) OrElse str(i+1) = chr(13) Then \'结束
tempstr = tempstr.Replace(chr(13), "")
nstr &= tempstr
tempstr = ""
flag = False
End If
End If
If flag = True Then
tempstr &= str(i)
Else
nstr &= str(i)
End If
Next
ClipBoard.SetText(nstr)
End If