With Tables("例二效果_Table1")
.grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
.S elect( - 1, - 1) '移除焦点行
.Theme = "(none)" '清除表样式
' .grid.rows(0).height = 0 '隐藏表头
.ForeColor = Color.LightGray '表格区字体颜色
.SetHeaderCellBackColor("日期", Color.MidnightBlue)'标题区背景颜色
.SetHeaderCellBackColor("数量", Color.MidnightBlue)'标题区背景颜色
.SetHeaderCellForeColor("日期", Color.LightGray)'标题区背景颜色
.SetHeaderCellForeColor("数量", Color.LightGray)'标题区背景颜色
.grid.styles.Normal.Border.Color = Color.SkyBlue '表格线颜色
.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.Styles("EmptyArea").Border.Color = Color.FromARGB(255,255,255) 'Transparent '表格边框颜色
.DataTable.SysStyles("Focus").ForeColor = Color.Red '焦点单元格字体颜色
.DataTable.SysStyles("EmptyArea").BackColor = Color.MidnightBlue '空白区背景色
.DataTable.SysStyles("Normal").BackColor = Color.MidnightBlue '数据区背景色
.DataTable.SysStyles("Focus").BackColor = Color.FromARGB(255, 255, 255) '焦点单元格背景颜色
.DataTable.SysStyles("CurrentRow").BackColor = Color.FromARGB(255, 255, 255) '当前行背景颜色
.ExtendLastCol = True '自动列宽
End With