主题：标题区的网格线

AfterLoad

Dim tb As Table = e.Form.Controls("Table1").Table

Dim tdt As C1.Win.C1FlexGrid.CellStyle = tb.Grid.Styles.Add("Text")

'****************  设置边框线

tdt.Border.Color = Color.red    

tdt.Border.Width = 2

'********** 设置类型

tdt.Border.Style = 7                '0到7

tb.Grid.Rows(0).Style = tb.Grid.Styles("Text")

Dim rng = tb.Grid.GetCellRange(0,0)

rng.Style = tb.Grid.Styles("Text")