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


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

主题：样式在全局表编写
帅哥哟，离线，有人找我吗？
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 = "蓝"     
  
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4648 积分：33890 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2019/8/11 19:12:00 [只看该作者]

指定表名无机物可以了

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

样式设计放到全局里  每个表还是要设计自定义样式
如何通过代码一起设计好 字体 下划线 颜色
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这样每个表都要针对设置么，和单独在表属性设置样式区别不大呀
如何针对所有表生效。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/13 8:40:00 [只看该作者]

样式仅对当前表有效，必须每个表都添加自己的样式

 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以动态添加表样式吗。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107680 积分：547721 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/26 22:27:00 [只看该作者]

5楼就是：http://www.foxtable.com/webhelp/topics/1579.htm

DataTables("表A").AddUserStyle("a", Color.Red, Color.White)
 回到顶部
帅哥哟，离线，有人找我吗？
yifan3429
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 参数 不用每个表独立设置
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 4 次数据查询