全部展开
全部折叠本文展示了如何使用RenderText类向表格中的特定单元格添加文本。
- 下方这段用来给表格设置深灰色网格线的代码应该已经存在于你的源代码文件中了：
Visual Basic
Visual Basic 拷贝代码Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ' Make a table. Dim table As C1.C1Preview.RenderTable = New C1.C1Preview.RenderTable(Me.C1PrintDocument1) table.Style.GridLines.All = New C1.C1Preview.LineDef(Color.DarkGray) ' Generate the document. Me.C1PrintDocument1.Body.Children.Add(table) Me.C1PrintDocument1.Generate() End SubC#
C# 拷贝代码private void Form1_Load(object sender, System.EventArgs e) { // Make a table. C1.C1Preview.RenderTable table = new C1.C1Preview.RenderTable(this.c1PrintDocument1); table.Style.GridLines.All = new C1.C1Preview.LineDef(Color.DarkGray); // Generate the document. this.c1PrintDocument1.Body.Children.Add(table); this.c1PrintDocument1.Generate(); } - 2. 通过将作为单元格显示内容的渲染对象赋给单元格的RenderObject属性可以让单元格显示各类数据。但是，由于在单元格中显示文本是一个常见任务，因此单元格还具有一个我们会用到的额外的特殊属性RenderText 。为了设置表格中每一个单元格的文本，你需要遍历表格中的每一行，然后在遍历中再嵌套一个遍历每个列的循环。如下方所示，在嵌套循环的主体中将Text属性设置为需要的文本内容（由于这个范例的原因，我们将(1,1) 和(1,2)单元格的值留空）
Visual Basic
Visual Basic 拷贝代码' Add 3 rows. Dim r As Integer = 3 ' Add 3 columns. Dim c As Integer = 3 Dim row As Integer Dim col As Integer For row = 0 To r - 1 Step +1 For col = 0 To c - 1 Step +1 If (Not (row = 1 And col = 1)) And (Not (row = 1 And col = 2)) Then Dim celltext As C1.C1Preview.RenderText = New C1.C1Preview.RenderText(Me.C1PrintDocument1) celltext.Text = String.Format("Cell ({0},{1})", row, col) ' Add cells with text. table.Cells(row, col).RenderObject = celltext End If Next NextC#
C# 拷贝代码// Add 3 rows. const int r = 3; // Add 3 columns. const int c = 3; for (int row = 0; row < r; ++row) { for (int col = 0; col < c; ++col) { if (!(row == 1 && col == 1) && !(row == 1 && col == 2)) { C1.C1Preview.RenderText celltext = new C1.C1Preview.RenderText(this.c1PrintDocument1); celltext.Text = string.Format("Cell ({0}, {1})", row, col); // Add cells with text. table.Cells[row, col].RenderObject = celltext; } } }
运行程序看一下：
你的表格应该看起来跟下面相似:
