主题：[求助]richtextbox绑定单元格，换行符编码不一致

就是实例中可以在窗口的CurrentChanged写代码解决问题，但是数据表的单元格中会留下空格，对数据有什么影响？

If Tables("窗口1_table1").Current IsNot Nothing        '加上判断
    For Each c As Col In CurrentTable.Cols
        If c.Name = "第一列" Or c.Name = "第二列" Or c.Name = "第三列"  Then
            Dim dr As DataRow = Tables("窗口1_table1").Current.DataRow
            Dim str As String = dr(c.Name)
            str = str.Replace(chr(13), "").replace(" ", "")
            str = "    " & str.Replace(chr(10), vbcrlf & "    ").trim()
            dr(c.Name) = str
        End If
    Next
End If

另外，实例中的这句代码没起作用：
rt.SelectionColor = Color.blue    '字体颜色无效