以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表格的style  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99138)

--  作者:newsun2k
--  发布时间:2017/4/13 11:11:00
--  表格的style
在表的afterload事件中,通过设定e.DataTable.AddUserStyle,设置新的style
然后通过代码修改BackColor,再次加载表,发现背景颜色没有修改
何解???

--  作者:有点色
--  发布时间:2017/4/13 11:13:00
--  
 贴出你写的代码。afterload和drawcell
--  作者:有点色
--  发布时间:2017/4/13 11:14:00
--  
 或者,你直接说明,你要做什么功能。
--  作者:newsun2k
--  发布时间:2017/4/13 13:35:00
--  
drawcell:

If e.Col.name = "答复期限" Then
    If e.Row("需要答复") = True And e.Row("答复状态") = "DFZT01" Then
        If e.Row("答复期限") < Date.Today.adddays(Vars("gnQiXianTT1")) Then
            e.Style = "提醒1"
        ElseIf e.Row("答复期限") < Date.Today.adddays(Vars("gnQiXianTT2")) Then
            e.Style = "提醒2"
        ElseIf e.Row("答复期限") < Date.Today.adddays(Vars("gnQiXianTT3")) Then
            e.Style = "提醒3"
        Else
        End If
    End If
End If

--  作者:newsun2k
--  发布时间:2017/4/13 13:35:00
--  
afterload:
e.DataTable.AddUserStyle("提醒1",Color.FromARGB(Vars("gnQiXianTTColor1")),Color.black)
e.DataTable.AddUserStyle("提醒2",Color.FromARGB(Vars("gnQiXianTTColor2")),Color.black)
e.DataTable.AddUserStyle("提醒3",Color.FromARGB(Vars("gnQiXianTTColor3")),Color.black)

--  作者:newsun2k
--  发布时间:2017/4/13 13:36:00
--  
我就是想用户自己改这个提醒的颜色


--  作者:有点色
--  发布时间:2017/4/13 14:17:00
--  

drawcell事件,写代码

 

e.Table.DataTable.AddUserStyle("提醒2",Color.FromARGB(Vars("gnQiXianTTColor2")),Color.black)
e.Table.DataTable.Styles("提醒2").BackColor = Color.FromARGB(Vars("gnQiXianTTColor2"))
e.Style = "提醒2"

 

如果想改变就直接写

 

Vars("gnQiXianTTColor2") = -10086
Tables("表A").Refresh