以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 表格的style (http://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)
如果想改变就直接写
Vars("gnQiXianTTColor2") = -10086 |