从EXCEL中复制数据时的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位专家们：您们好！

将EXCEL表格中的数据信息复制如FOXTABLE中时，如何处理在EXCEL单元格中使用了回车换行的数据？因为这类单元格的数据在粘贴到FOXTABLE中时，它会不在1个单元格中，每一个回车换行都自动另起了一行，被放到了多个行的单元格中。谢谢！

以下是引用有点甜在2018/4/2 14:24: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