Foxtable(狐表)用户栏目专家坐堂 → 样式在全局表编写


  共有2356人关注过本帖树形打印复制链接

主题:样式在全局表编写

帅哥哟,离线,有人找我吗?
yifan3429
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
样式在全局表编写  发帖心情 Post By: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 = "蓝"     
  

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By: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

样式设计放到全局里  每个表还是要设计自定义样式
如何通过代码一起设计好 字体 下划线 颜色

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2019/8/13 0:43:00 [显示全部帖子]

这样每个表都要针对设置么,和单独在表属性设置样式区别不大呀
如何针对所有表生效。

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2019/8/26 22:24:00 [显示全部帖子]

可以动态添加表样式吗。

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2466 积分:22761 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By: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 参数 不用每个表独立设置

 回到顶部