一个例外

单元格内边距,也就是内容和网格线的距离,是唯一不能通过表、行、列的Style属性设置的。
对于表格来说,Style的Spacing子属性设置的是表格和相邻对象的距离,而不是单元格内边距。
表格、行、列有一个CellStyle属性,专门用于解决这些问题,顾名思义,CellStyle当然完全是针对单元格的。。

示例

Dim doc As New PrintDoc '定义一个报表
Dim
rt As New prt.RenderTable() '定义一个表格对象
doc.Body.Children.Add(rt)
'将表格对象加入到报表中
rt.Style.GridLines.All = New prt.Linedef
'设置网格线
rt.CellStyle.Spacing.All =
1 '单元格内边距设为1毫米
'下面的代码向表格中填入值

For
r As Integer = 0 to 5
   
For c As integer = 0 to 5
        rt.Cells(r, c).Text = r &
"," & c '
   
Next
Next

doc.Preview()
'预览报表

执行结果:

一般来说,如果你用Style无效,那么就改用CellStyle来试试,总有一个可以的。

 

 


本页地址:http://www.foxtable.com/webhelp/topics/1211.htm