以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用代码进行行的样式设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113596)

--  作者:aza520
--  发布时间:2018/1/19 10:30:00
--  用代码进行行的样式设置
我在表的PositionChanged事件设置如下代码,想实现当选定表A中某一行的时候,该行的背景颜色为红色。但不起效果。请问老师是什么原因?

DataTables("表A").SysStyles("CurrentRow").BackColor = Color.Red


--  作者:有点甜
--  发布时间:2018/1/19 10:45:00
--  

这样写

 

DataTables("表A").SysStyles("CurrentRow").BackColor = Color.Red
Tables("表A").ListMode = True


--  作者:aza520
--  发布时间:2018/1/19 11:59:00
--  
老师,如果相设置关联子表如“表A.表B”的选定行背景颜色,代码又如何,写在哪里



--  作者:有点甜
--  发布时间:2018/1/19 12:12:00
--  
以下是引用aza520在2018/1/19 11:59:00的发言:
老师,如果相设置关联子表如“表A.表B”的选定行背景颜色,代码又如何,写在哪里


 

方法一:

 

Tables("表A.表B").datatable.SysStyles("CurrentRow").BackColor = Color.Red
Tables("表A.表B").ListMode = True

 

方法二:表B的drawcell事件写代码

 

If e.Table.Name = "表A.表B" AndAlso e.row.Index = e.table.current.index Then

    e.Table.DataTable.AddUserStyle("样式1", color.green, color.yellow)

    e.style = "样式1"

End If