插入行和列
Rows和Cols都有一个Insert方法,用于在指定位置插入行或列。
示例:
Dim
doc
As New
PrintDoc
Dim rt
As New
prt.RenderTable()
doc.Body.Children.Add(rt)
rt.Style.GridLines.All = New prt.LineDef
rt.Width =
100
rt.Height =
100
rt.Rows.Count =
3
'设置行数为3行
rt.Cols.Count =
3
'设置列数为3列
rt.Rows.Insert(1)
'在第2行位置插入一行
rt.Cols.Insert(2)
'在第3列位置插入一列
rt.Cells(1,0).Text
=
"插入的行"
rt.Cells(0,2).Text
=
"插入的列"
rt.Style.Font = New Font("宋体",
14,
FontStyle.Bold)
rt.Style.TextAlignVert = prt.AlignHorzEnum.Center
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center
rt.Rows(1).Style.Borders.All
= New prt.LineDef("1mm",
Color.Red)
rt.Cols(2).Style.Borders.All
= New prt.LineDef("1mm",
Color.Blue)
Doc.Preview()
执行结果: