主题：复制多行文本单元格的问题

'项目事件 Initialize
For Each dt As DataTable In DataTables
    dt.GlobalHandler.PrepareEdit = True   '开启PrepareEdit事件
Next
For Each dt As DataTable In DataTables
    dt.GlobalHandler.AfterEdit = True     '开启AfterEdit事件
Next

'全局表事件 PrepareEdit  准备编辑时，替换剪贴板多行文本换行符
Dim str As String = ClipBoard.GetText()
If str.contains(vbcrlf) Then
    str = str.Replace(vbcrlf, Chr(10))
    ClipBoard.SetText(str)
End If

'全局表事件 AfterEdit   结束编辑单元格后，替换单元格多行文本换行符
If e.Row(e.Col.name).contains(chr(10)) And e.Row(e.Col.name).contains(vbcrlf) = False Then
    e.Row(e.Col.name) = e.Row(e.Col.name).replace(chr(10),vbcrlf)
End If