以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]richtextbox绑定单元格，换行符编码不一致  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136585)
--  作者：jyh7081
--  发布时间：2019/6/16 19:25:00
--  [求助]richtextbox绑定单元格，换行符编码不一致
richtextbox绑定单元格，在richtextbox的字符串中点击回车键，产生换行；
复制richtextbox中的字符串到剪切板，点击窗口中的按钮查看字符编码，换行符为Chr(13) & Chr(10)。
然后，复制  窗口表或本表  所绑定的单元格内容至剪切板，查看字符编码，换行符为 Chr(10)。
发现两者的换行符编码不一致。
现在，我想把单元格中的换行文本，在richtextbox中显示分段效果，是不是不能用绑定的方法？


图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目66 (1).table
--  作者：有点甜
--  发布时间：2019/6/17 9:46:00
--  

那你把chr(10)替换成vbcrlf

 

http://www.foxtable.com/webhelp/scr/0241.htm

 
--  作者：天一生水
--  发布时间：2019/6/17 12:04:00
--  

 

[此贴子已经被作者于2019/6/17 12:08:43编辑过]
--  作者：有点甜
--  发布时间：2019/6/17 12:11:00
--  
以下是引用天一生水在2019/6/17 12:04:00的发言：

 

[此贴子已经被作者于2019/6/17 12:08:43编辑过]

 

什么意思？没看懂你的问题。
--  作者：天一生水
--  发布时间：2019/6/17 12:22:00
--  

就是实例中可以在窗口的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    \'字体颜色无效
--  作者：有点甜
--  发布时间：2019/6/17 14:34:00
--  

1、空格没有影响；

 

2、改成比如

 

ct1.DataBindings.Add("text", Tables("窗口1_table1").Grid.DataSource, "第一列")
ct1.appendtext("123456")