回车换行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 回车换行

共有2065人关注过本帖树形打印复制链接主题：回车换行

fanjq8686

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：277 积分：2328 威望：0 精华：0 注册：2015/4/5 16:28:00

回车换行

Post By：2015/5/20 17:29:00 [显示全部帖子]

请教老师：

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

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

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

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

fanjq8686

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：277 积分：2328 威望：0 精华：0 注册：2015/4/5 16:28:00

Post By：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编辑过]