Foxtable(狐表)用户栏目专家坐堂 → [求助] 特定列的背景色更改为蓝色


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

主题:[求助] 特定列的背景色更改为蓝色

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


加好友 发短信
等级:六尾狐 帖子:1369 积分:10014 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助] 特定列的背景色更改为蓝色  发帖心情 Post By:2018/1/31 11:34:00 [只看该作者]

Dim dtname As String = "新增报价"
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = DataTables(dtname)
Dim Cn1() As String  = {"名称","规格型号","单位","电子档文件","扫描文件"}
For Each c As String In cn1
    dt.DataCols(c).AllowEdit = False
tb.DataTable.Styles(c).BackColor = Color.Red
 列的背景色更改为蓝色。
Next

如何实现上面红色字的效果 ,是副本表,没办法在DrawCell里写代码。
[此贴子已经被作者于2018/1/31 11:36:52编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/31 11:54:00 [只看该作者]

1、tb.grid.cols(c).style.BackColor = Color.Red

 

2、任何表都可以编写drawcell事件的。副本表的代码,写到主表的drawcell事件去。


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


加好友 发短信
等级:六尾狐 帖子:1369 积分:10014 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2018/1/31 14:03:00 [只看该作者]

没有主表,表的内容是读取数据产生的。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/31 14:29:00 [只看该作者]

以下是引用2900819580在2018/1/31 14:03:00的发言:
没有主表,表的内容是读取数据产生的。

 

你可以改成sqlTable、sqlQuery类型的表格,这样不就可以写drawcell事件了?

 

如果是临时表,也可以用全局表事件 http://www.foxtable.com/webhelp/scr/0671.htm

 


 回到顶部