主题：选定行字体颜色

老师，窗口中的sqlTable，设置了选定行的字体颜色为red，为什么焦点单元格的字体颜色没有变为红色呢？

 我用代码设置了选中区域的字体颜色都不行

 

With Tables("主窗口_Table1")
    .DataSource = dt4
    .Cols.Remove("发布机构","发布部门","类别","主题","通知部门","内容","登记状态","登记人","登记日期","备注")
    .DefaultRowHeight  = 25 '所有行高
    .Cols("发布日期").TextAlign = TextAlignEnum.Center  '发布日期列数据居中
    .grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
    .DataTable.SysStyles("EmptyArea").BackColor = Color.White '空白区背景色
    .DataTable.SysStyles("Alternate").BackColor = Color.Azure '交替行颜色
    .DataTable.SysStyles("Highlight").ForeColor = Color.Red   '选定行字体颜色
    .grid.Styles("EmptyArea").Border.Color = Color.White  '表格边框颜色
    .grid.rows(0).height = 0  '隐藏表头
End With

 

此主题相关图片如下：2222.jpg

测试只有设置焦点单元格字体颜色才有效

焦点单元格既然有独立的样式，当然也要另外设置的

老师，为什么不设置焦点单元格样式，设置了选定行字体颜色无效呢？

.DataTable.SysStyles("Highlight").ForeColor = Color.Red   '选定行字体颜色

焦点单元格要单独设置

老师，还是有个问题，我单独设置了焦点单元格字体颜色后，鼠标不点击窗口表，有一列字体还是红色，这样就点丑，怎么解决？

With Tables("主窗口_Table1")
    .DataSource = dt4
    .Cols.Remove("发布机构","发布部门","类别","主题","通知部门","内容","登记状态","登记人","登记日期","备注")
    .DefaultRowHeight  = 25 '所有行高
    .Cols("发布日期").TextAlign = TextAlignEnum.Center  '发布日期列数据居中
    .grid.ScrollBars = 0 '禁止滚动条,0 无 1 横向 2 纵向 3 横向纵向
    .Theme = "(none)"  '清除表样式
    .grid.rows(0).height = 0  '隐藏表头
    .grid.Styles("EmptyArea").Border.Color = Color.White  '表格边框颜色
    .DataTable.SysStyles("CurrentRow").ForeColor = Color.Red   '当前行字体颜色
    .DataTable.SysStyles("Focus").ForeColor = Color.Red   '焦点单元格字体颜色
    .DataTable.SysStyles("EmptyArea").BackColor = Color.White  '空白区背景色
    .DataTable.SysStyles("Alternate").BackColor = Color.Azure  '交替行颜色
    '.DataTable.SysStyles("CurrentRow").BackColor = Color.Transparent '当前行背景颜色
    .Select(-1,-1) '移除焦点行
End With

 

此主题相关图片如下：222.jpg

试试

这样，还是这种情况，这个是主窗口中的分区的一小部分，当鼠标点击了窗口中其他部分，前面一列字体是黑色，日期列还是红色

我测试没有问题，上传实例说明

老师，窗口的全局表enter事件这样写

With Tables("主窗口_Table1")
    .Theme = "(none)"  '清除表样式
    .Select(-1,-1) '移除焦点行
    .DataTable.SysStyles("CurrentRow").ForeColor = Color.Red   '当前行字体颜色
    .DataTable.SysStyles("Focus").ForeColor = Color.Red   '焦点单元格字体颜色
End With

leave事件这样写，

With Tables("主窗口_Table1")
    .Theme = "(none)"  '清除表样式
    .Select(-1,-1) '移除焦点行
    .DataTable.SysStyles("CurrentRow").ForeColor = Color.Black  '当前行字体颜色
    .DataTable.SysStyles("Focus").ForeColor = Color.Black   '焦点单元格字体颜色
End With

为什么离开的事件无效呢？