以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  备注列窗口字体大小怎么更改?不显示回车换行符?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132053)

--  作者:大清河
--  发布时间:2019/3/12 20:04:00
--  备注列窗口字体大小怎么更改?不显示回车换行符?
备注列窗口字体大小怎么更改,而且数据库的数据有换行符的,foxtable读取后显示就没有换行了。
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20190312200117.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2019/3/12 20:14:08编辑过]

--  作者:有点蓝
--  发布时间:2019/3/12 20:21:00
--  
字体大小:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=125192&replyID=840950&skin=1

数据库的数据复制到记事本能不能自动换行,复制到word有没有换行符?

--  作者:大清河
--  发布时间:2019/3/12 20:31:00
--  备注换行符
复制到word能够换行,txt不行
--  作者:大清河
--  发布时间:2019/3/12 20:36:00
--  
这个更改字体大小的事件代码是放在哪里的
--  作者:有点蓝
--  发布时间:2019/3/12 20:38:00
--  
说明不是真正的换行符。真正的换行符包含2个符号,vbcrlf,即vbcr和vblf,数据库的数据可能只有其中一个
--  作者:大清河
--  发布时间:2019/3/13 8:29:00
--  

 

[此贴子已经被作者于2019/3/13 8:46:07编辑过]

--  作者:有点甜
--  发布时间:2019/3/13 8:57:00
--  
以下是引用大清河在2019/3/12 20:31:00的发言:
复制到word能够换行,txt不行

 

你可以替换一下内容,把回车符替换成真正的回车,如

 

Dim str = "abc" & chr(13) & "123"
CurrentTable.value = str
str = str.replace(chr(13), vbcrlf)
msgbox(str)


--  作者:大清河
--  发布时间:2019/3/13 9:02:00
--  

我再查询表代码里加了一句replace(t.treatment,chr(10),chr(13)||chr(10)),里面的内容正常了,但是出现了两个字段
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190313090044.jpg
图片点击可在新窗口打开查看

而且备注列窗口显示不出来


--  作者:有点甜
--  发布时间:2019/3/13 11:04:00
--  

这样写吧?

 

select replace(t.treatment,chr(10),chr(13)||chr(10)) as 备注

 

如果要扩展成备注列,加入convert或cast转换备注text类型


--  作者:大清河
--  发布时间:2019/3/13 11:19:00
--  

太牛了吧,这样就行了,非常感谢啊