- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 专业报表设置了下边线为白色，就弄成了下面的效果，有办法解决断线的问题吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161210)
-- 发布时间：2021/3/10 7:40:00
-- 专业报表设置了下边线为白色，就弄成了下面的效果，有办法解决断线的问题吗？
此主题相关图片如下：qq图片20210310073817.png
[此贴子已经被作者于2021/3/10 7:41:00编辑过]
-- 发布时间：2021/3/10 8:44:00
--
贴出可以测试的代码，或者上传实例说明
-- 发布时间：2021/3/10 18:10:00
--
rt.Cells(i,0).Text= "合计"
rt.Cells(i,1).SpanCols = 8
rt.Cells(i,1).Text =" 数量:" & sl &" 金额:" & Format(je,"0.00")
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="本单应收:" & Format(je,"0.00") & " 本单实收:"& args(4) & " 本单欠款:" & je-args(4)
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="客户签名:________________ 收款人签名:________________ "
rt.Rows(i).Style.GridLines.left=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.GridLines.right=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i-1).Style.GridLines.Horz = new Prt.LineDef(Color.black)
rt.Rows(i-1).Style.GridLines.Vert = new Prt.LineDef(Color.black)
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="全国服务热线:400-811-8733 网址:www.failon.com 安装服务电话:18116788811"
rt.Rows(i).Style.GridLines.left=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.GridLines.right=New Prt.LineDef(0.5, Color.white)
\'rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="顾客须知:"
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="1.所有售出的商品享受国家三包规定和法狮龙的售后服务"
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left \'内容垂直居中
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="2.订单客户交60%定金我,安装完交齐全款:"
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left \'内容垂直居中
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="3.需要安装的客户提前1周通知各专卖店,以便于安排安装时间:"
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left \'内容垂直居中
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="4.客户由于自身原因要求退单,我公司将扣除丰关费用(运输费?退货费以及20%手续费),"
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left \'内容垂直居中
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="右为特定造型,订金恕不退还:"
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left \'内容垂直居中
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="5.货到现场,必须履行验货手续并将付清余款,在""客户现场验货签字"""
rt.Cells(i,0).Style.TextAlignVert = prt.AlignHorzEnum.left \'内容垂直居中
doc.Body.Children.Add(rt) \'将表格对象加入到报表中
Doc.Preview() \'预览报表
-- 发布时间：2021/3/11 8:48:00
--
换一种方式，合并到一个单元格里显示
i=i+1
rt.Cells(i,0).SpanCols = 9
rt.Cells(i,0).Text ="顾客须知:" & vbcrlf & "1.所有售出的商品享受国家三包规定和法狮龙的售后服务" & vbcrlf & "2.订单客户交60%定金我,安装完交齐全款:" ’......
rt.Rows(i).Style.GridLines.bottom=New Prt.LineDef(0.5, Color.white)
rt.Rows(i).Style.TextAlignVert = prt.AlignHorzEnum.left
-- 发布时间：2021/3/11 12:27:00
--
第一个红圈问题解决不了,还有就是顾客须知想变成大字,也大不了了,二个问题解决不了
-- 发布时间：2021/3/11 13:34:00
--
第一个红圈 -- 把内容分成多个表格