实现方法很简单，就是在报表属性的代码里加上以下这段代码：
复制代码代码如下:
Function GetRemark(rowNum As Integer, remark As String) As String
Dim cutLength As Integer = 10
Return Mid(remark, cutLength * (rowNum - 1) + 1, cutLength)
End Function
(说明：这个函数有两个参数，一个int，一个string，返回值是string，函数里面有个int变量cutLength,它是用来控制每行显示
多少个字符的)
然后在要合并的地方加上：code.GetRemark(RowNumber(Nothing), Fields!Remark.Value)
再把那个单元格的边框设为NONE，大功告成！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024