主题：一个小问题大大失色

Dim clr As Color = Color.FromArgb (7, 28, 90)

With Tables("例二效果_Table1")

    .grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向

    .S elect( - 1, - 1) '移除焦点行

    .Theme = "(none)" '清除表样式

    '    .grid.rows(0).height = 0 '隐藏表头

    .DataTable.SysStyles("Fixed").BorderColor = Color.FromARGB(0, 100, 219) '标题区框线颜色

    .DataTable.SysStyles("Fixed").BackColor = clr '标题区背景颜色

    .DataTable.SysStyles("Fixed").ForeColor = Color.LightGray '标题区字体颜色

    .grid.Styles.Fixed.Border.Direction = 1 '0为横竖线,1为横,2为竖，标题区边框显示

    .DataTable.SysStyles("Focus").ForeColor = Color.LightGray '焦点单元格字体颜色

    .DataTable.SysStyles("EmptyArea").BackColor = clr '空白区背景色

    .DataTable.SysStyles("Normal").BackColor = clr '数据区背景色

    .DataTable.SysStyles("Focus").BackColor = clr '焦点单元格背景颜色

    .DataTable.SysStyles("CurrentRow").BackColor = clr '当前行背景颜色

    .ForeColor = Color.LightGray '表格区字体颜色

    .grid.styles.Normal.Border.Color = Color.FromARGB(0, 100, 219) '表格线颜色

    .grid.styles.Normal.Border.Style = 1 '1为单线,2为双线

    .grid.styles.Normal.Border.width = 0.6 '表格线宽

    .grid.styles.Normal.Border.Direction = 1 '0为横竖线,1为横,2为竖

    .grid.BorderStyle = C1.Win.C1FlexGrid.Util.BaseControls.BorderStyleEnum.None '去掉表格边框

    '    .grid.Styles("EmptyArea").Border.Color = Color.FromARGB(0, 100, 219) 'Transparent  '表格边框颜色

    .ExtendLastCol = True '自动列宽

End With