以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义了一个表样式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110363)

--  作者:rjh4078
--  发布时间:2017/12/1 15:51:00
--  自定义了一个表样式
e.Table.DataTable.AddUserStyle("删除线", Color.White,Color.gray)
    e.Table.DataTable.SysStyles("删除线").FontStrikeout=True
    e.Table.DataTable.SysStyles("删除线").Fontbold=True
为什么字体没有加粗也没有删除线?

--  作者:有点蓝
--  发布时间:2017/12/1 16:48:00
--  
AddUserStyle的样式drawcell事件才能使用的
--  作者:有点甜
--  发布时间:2017/12/1 18:09:00
--  
贴出完整代码,或者做个实例看看。
--  作者:rjh4078
--  发布时间:2017/12/1 19:03:00
--  
是的 我在drawcell事件中写的
If e.Table.Cols.Contains("变更") Then
    e.Table.DataTable.AddUserStyle("删除线", Color.White,Color.gray)
    e.Table.DataTable.SysStyles("删除线").FontStrikeout=True
    e.Table.DataTable.SysStyles("删除线").Fontbold=True
    If e.Row("变更")=True Then
        e.Style="删除线"
        
    End If
End If

--  作者:rjh4078
--  发布时间:2017/12/1 19:03:00
--  
字体颜色变了 但是没有加粗和删除线
--  作者:chnfo
--  发布时间:2017/12/1 19:37:00
--  
你这样太麻烦了。
在数据表-其它-自定义样式中,把样式定义好,比如说A
然后写DRAW CELL事件
select case e.col.name
  case “变更”
      e.style = "A"
end select 

简单方便,代码少。

--  作者:有点蓝
--  发布时间:2017/12/1 20:43:00
--  
If e.Table.Cols.Contains("变更") Then
    e.Table.DataTable.AddUserStyle("删除线", Color.White,Color.gray)
    e.Table.DataTable.Styles("删除线").FontStrikeout=True
    e.Table.DataTable.Styles("删除线").Fontbold=True
    If e.Row("变更")=True Then
        e.Style="删除线"
        
    End If
End If

--  作者:rjh4078
--  发布时间:2017/12/1 20:46:00
--  
果然如此
--  作者:rjh4078
--  发布时间:2017/12/1 20:46:00
--  
以下是引用chnfo在2017/12/1 19:37:00的发言:
你这样太麻烦了。
在数据表-其它-自定义样式中,把样式定义好,比如说A
然后写DRAW CELL事件
select case e.col.name
  case “变更”
      e.style = "A"
end select 

简单方便,代码少。

这个是动态表