以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于一列中多行内容的显示与合并  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74361)

--  作者:lake163
--  发布时间:2015/9/9 14:10:00
--  关于一列中多行内容的显示与合并
简历是一个备注列,其内容是分行的。(问题之前可能问过,但仍未搞清)
1、显示的问题
(1)从易表中将简历内容直接复制到简历窗口中,简历窗口和主表中的显示都是正常的。
(2)如果重新输入,也没有问题。
(3) 但从易表中直接转换过来(通过ACCESS),以及从易表中将简历内容直接复制到主表 简历 列中,简历窗口显示不正常(连到了一起),主表中的显示正常的。见下图。
  请帮忙查查原因。
2、如果要在EXCEL报表中,将多行的内容合并成一段打印(即去掉回车符),请问报表中表达式如何写。
    即:1行;
          2行;
          3行。
    打印成:1行;2行;3行。

表格



 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150909133957.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/9/9 14:37:02编辑过]

--  作者:大红袍
--  发布时间:2015/9/9 15:01:00
--  

重新整理一下数据。去掉回车已经在以前的帖子回复

 

For Each r As Row In Tables("表A").Rows
    Dim s As String = ""
    For i As Integer = 0 To r("简历").Length - 1
        If asc(r("简历")(i)) = 10 AndAlso asc(r("简历")(i-1)) <> 13 Then
            s &= vbcrlf
        Else
            s &= r("简历")(i)
        End If
    Next
    r("简历") = s
Next


--  作者:大红袍
--  发布时间:2015/9/9 15:01:00
--  

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73808&skin=0

 


--  作者:lake163
--  发布时间:2015/9/9 21:45:00
--  
谢谢!
1、按照上述的方法,有80%的简历内容能够处理。还有一部分因为格式问题无法处理,提示出错,但影响不大。
2、之前报表中REPLACE不能起作用,也是因为原简历内容中含有一些特殊字符,重新整理后,正常了。

--  作者:大红袍
--  发布时间:2015/9/9 21:48:00
--  

1、提示出错是什么提示?例子说明。