以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  回车换行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=68579)
--  作者：fanjq8686
--  发布时间：2015/5/20 17:29:00
--  回车换行

 请教老师：

文字末尾加Chr(13) & Chr(10)后生成WORD报表：

1.用WORD打开后，是连续的，并没有换行，为什么？

2.用WPS打开有一个换行的符号。

3.如去掉Chr(10)后，用WPS打开正常。
--  作者：大红袍
--  发布时间：2015/5/20 17:36:00
--  
 例子发上来。
--  作者：fanjq8686
--  发布时间：2015/5/20 17:40:00
--  
Dim s As String
Dim s2 As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Checked Then
        If nd.level = 2 Then
            s = s & nd.Text & Chr(13)   \'vbcrlf
        End If
        If nd.level = 3 Then
            s2 = s2 & nd.Text & Chr(13)
        End If
    End If
Next
\'Tables("业务流程表").current("依据标准号") = s.trim(";")
\'Tables("业务流程表").current("标准名称") = s2  \'.trim(";")
Tables("业务管理窗口_Table1").current("标准名称")=s2
e.Form.DropDownBox.Value = s  \'.trim(";")
e.Form.DropDownBox.CloseDropdown
[此贴子已经被作者于2015/5/20 17:44:52编辑过]
--  作者：大红袍
--  发布时间：2015/5/20 17:41:00
--  
 上传例子。
--  作者：fanjq8686
--  发布时间：2015/5/20 17:44:00
--  
没明白，就是这个代码
--  作者：大红袍
--  发布时间：2015/5/20 17:45:00
--  

 上传文件，上传报表模板。

 

 可能要额外处理才行。
--  作者：fanjq8686
--  发布时间：2015/5/20 17:47:00
--  
已经是在用的系统了，用的SQL数据库，没有办法传
--  作者：fanjq8686
--  发布时间：2015/5/20 17:49:00
--  

审查依据

[依据标准号]

[标准名称]
--  作者：大红袍
--  发布时间：2015/5/20 17:59:00
--  
 做个小例子发上来。