以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 样式在全局表编写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139338) |
-- 作者:yifan3429 -- 发布时间:2019/8/11 18:42:00 -- 样式在全局表编写 If e.Col.Name = "凭证ID" AndAlso e.Row.IsNull("凭证ID") = False Then e.Style = "蓝" End If 上面的代码是单个表的 例如:凭证ID 订单ID 客户ID等等每个表会有不同的ID 我想放在全局表事件里面,只要 Col.Name 包含 ID 的 e.Style = "蓝" |
-- 作者:y2287958 -- 发布时间:2019/8/11 19:12:00 -- 指定表名无机物可以了 |
-- 作者:有点蓝 -- 发布时间:2019/8/11 20:28:00 -- If e.Col.Name.contains( "ID" ) If e.Row.IsNull(e.Col.Name) = False Then e.Style = "蓝" End If End If
|
-- 作者:yifan3429 -- 发布时间:2019/8/12 13:53:00 -- \'超链接列样式设计 Dim fnt As New Font("黑体",12,FontStyle.Underline) If e.Col.Name.contains( "ID" ) If e.Row.IsNull(e.Col.Name) = False Then e.Style.FontBold = fnt End If End If 样式设计放到全局里 每个表还是要设计自定义样式 如何通过代码一起设计好 字体 下划线 颜色
|
-- 作者:有点蓝 -- 发布时间:2019/8/12 15:00:00 -- If e.Col.Name.contains( "第一列" ) If e.Row.IsNull(e.Col.Name) = False Then DataTables("表A").AddUserStyle("a", Color.Red, Color.White) DataTables("表A").Styles("a").FontBold = True DataTables("表A").Styles("a").FontUnderline = True e.Style = "a" End If End If
|
-- 作者:yifan3429 -- 发布时间:2019/8/13 0:43:00 -- 这样每个表都要针对设置么,和单独在表属性设置样式区别不大呀 如何针对所有表生效。
|
-- 作者:有点蓝 -- 发布时间:2019/8/13 8:40:00 -- 样式仅对当前表有效,必须每个表都添加自己的样式 |
-- 作者:yifan3429 -- 发布时间:2019/8/26 22:24:00 -- 可以动态添加表样式吗。 |
-- 作者:有点蓝 -- 发布时间:2019/8/26 22:27:00 -- 5楼就是:http://www.foxtable.com/webhelp/topics/1579.htm DataTables("表A").AddUserStyle("a", Color.Red, Color.White)
|
-- 作者:yifan3429 -- 发布时间:2019/8/28 13:38:00 -- If e.Col.Name.contains( "第一列" ) If e.Row.IsNull(e.Col.Name) = False Then DataTables("表A").AddUserStyle("a", Color.Red, Color.White) DataTables("表A").Styles("a").FontBold = True DataTables("表A").Styles("a").FontUnderline = True e.Style = "a" End If End If DataTables("表A").AddUserStyle("a", Color.Red, Color.White) DataTables("表A").Styles("a").FontBold = True DataTables("表A").Styles("a").FontUnderline = True 可以用 E 参数 不用每个表独立设置 |