Foxtable(狐表)用户栏目专家坐堂 → [求助]richtextbox绑定单元格,换行符编码不一致


  共有1789人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jyh7081
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:951 积分:8371 威望:0 精华:0 注册:2012/10/3 13:25:00
[求助]richtextbox绑定单元格,换行符编码不一致  发帖心情 Post By:2019/6/16 19:25:00 [只看该作者]

richtextbox绑定单元格,在richtextbox的字符串中点击回车键,产生换行;
复制richtextbox中的字符串到剪切板,点击窗口中的按钮查看字符编码,换行符为Chr(13) & Chr(10)。
然后,复制  窗口表或本表  所绑定的单元格内容至剪切板,查看字符编码,换行符为 Chr(10)。
发现两者的换行符编码不一致。
现在,我想把单元格中的换行文本,在richtextbox中显示分段效果,是不是不能用绑定的方法?


图片点击可在新窗口打开查看此主题相关图片如下:截屏图片.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目66 (1).table

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/17 9:46:00 [只看该作者]

那你把chr(10)替换成vbcrlf

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
天一生水
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11218 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By:2019/6/17 12:04:00 [只看该作者]

 

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/17 12:11:00 [只看该作者]

以下是引用天一生水在2019/6/17 12:04:00的发言:

 

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

 

什么意思?没看懂你的问题。


 回到顶部
帅哥哟,离线,有人找我吗?
天一生水
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1137 积分:11218 威望:0 精华:0 注册:2017/9/26 16:30:00
  发帖心情 Post By: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    '字体颜色无效


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/17 14:34:00 [只看该作者]

1、空格没有影响;

 

2、改成比如

 

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

 

 


 回到顶部