主题：回车换行

 请教老师：

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

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

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

3.如去掉Chr(10)后，用WPS打开正常。

 例子发上来。

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

 上传例子。

没明白，就是这个代码

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

 

 可能要额外处理才行。

已经是在用的系统了，用的SQL数据库，没有办法传

审查依据

[依据标准号]

[标准名称]

 做个小例子发上来。