以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何用代码改变 当前 选定行 高亮显示的颜色？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169646)
--  作者：蓝色理想
--  发布时间：2021/6/24 12:11:00
--  如何用代码改变 当前 选定行 高亮显示的颜色？
Tables("合同汇总表").ListMode = True
DataTables("合同汇总表").SysStyles("CurrentRow:").BackColor = Color.White
试了多次 各种系统样式，还是不知道如何设置 listmode 的高亮显示颜色
请给指导一下，谢谢


DataTable有个SysStyles集合，用于返回指定名称的系统样式，例如：

DataTables("成绩表").SysStyles("Alternate")

表示成绩表交替行的样式。

系统样式包括：

Normal：              数据区
Frozen：              冻结区
Alternate:            交替行
EmptyArea：           空白区
Fixed：               标题行
Highlight:            选定区域
Focus：               焦点单元格
ModifiedCell:         已修改单元格
SelectedRowHeader：   选定行的行标题
SelectedColumnHeader：选定列的列标题
CurrentRow:           当前行
GrandTotal：          总计行
Subtotal0：           小计行0
Subtotal1：           小计行1
Subtotal2：           小计行2
Subtotal3：           小计行3
Subtotal4：           小计行4
Subtotal5：           小计行5

样式包括以下属性：

BackColor：    背景颜色
ForeColor：    字体颜色
FontBold：     逻辑型，设为True，字体加粗
FontItalic：   逻辑型，设为True，字体倾斜
FontStrikeout：逻辑型，设为True，字体带删除线
FontUnderline：逻辑型，设为True，字体带下划线

示例

希望将空白区的背景颜色设为白色：

DataTables("表A").SysStyles("EmptyArea").BackColor = Color.White
--  作者：蓝色理想
--  发布时间：2021/6/24 14:18:00
--  
自己顶一下
--  作者：有点蓝
--  发布时间：2021/6/24 15:04:00
--  
DataTables("合同汇总表").SysStyles("CurrentRow").BackColor = Color.White