貌似在专业报表里的表格里添加的文字会自动换行.
但是很奇怪的是貌似只会根据某一列的文字多少来确定行高.结果就是某些列的文字显示不完
后来我在没有自动调整行高的行的相应代码位置添加了.WordWrap = true,仍然不对
一下是截取关键部位的代码,大家指点指点
For i As Integer = 2 To hs + 1
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("原货号") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,0).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("原面料") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,1).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("原颜色") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,2).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("现货号") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,3).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("件数") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,4).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("规格") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,5).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("厂价") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,6).RenderObject = rx2 '放置在单元格中
rx2 = New prt.RenderText '创建一个新的文本对象
rx2.text = Tables("订单.订单数据").rows(i-2)("备注") '设置文本对象的内容
rx2.Style.Spacing.All = 1 '内容和网格线的距离为1
rtb.Cells(i,7).RenderObject = rx2 '放置在单元格中
rtb.cells(i,7).Style.TextAlignHorz = prt.AlignHorzEnum.left '水平靠左
Next