Foxtable(狐表)用户栏目专家坐堂 → [求助]郁闷,在动态加载的查询表中设置当前行的背景色怎么也不成功,此问题解决,又有一个问题


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

主题:[求助]郁闷,在动态加载的查询表中设置当前行的背景色怎么也不成功,此问题解决,又有一个问题

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]郁闷,在动态加载的查询表中设置当前行的背景色怎么也不成功,此问题解决,又有一个问题  发帖心情 Post By:2015/3/1 3:20:00 [只看该作者]

DataTables("库存查询主窗口_Table_查询表").SysStyles("Focus").BackColor = Color.red 这个设置单元格能成功
DataTables("库存查询主窗口_Table_查询表").SysStyles("CurrentRow").BackColor = Color.red 这个设置当前行背景色的怎么也不行
窗口中表的类型是SQLQuery
在窗口的afterload中加了 Tables("库存查询主窗口_Table_查询表").UseVisualStyle = False 代码
为什么啊???
[此贴子已经被作者于2015/3/1 12:19:50编辑过]

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


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

DataTables("表A").SysStyles("CurrentRow").BackColor = Color.red
Tables("表A").ListMode = True

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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/3/1 12:18:00 [只看该作者]

原来是ListMode,昨晚搞到3点也没搞明白,查论坛数据也没找到。

另外请教下,我想在窗口中的表打开时自动把所有卷号为001的记录行的背景色变为红色
以上代码应该如何写,请老师举个例子
[此贴子已经被作者于2015/3/1 14:05:15编辑过]

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


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


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


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

 如果是窗口表,要这样处理

 

http://www.foxtable.com/help/topics/2628.htm

 


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


加好友 发短信
等级:五尾狐 帖子:1104 积分:8956 威望:0 精华:0 注册:2014/10/25 11:24:00
  发帖心情 Post By:2015/3/1 15:37:00 [只看该作者]

根据教程代码:
If e.Col.Name = "数量" Then
    If e.Row("数量") >= 500 Then
        e.Style = "a"
    End 
If

End
 If

此代码是把满足条件的单元格设置成样式a,我希望把满足条件的单元格的所在行设置成样式a,代码应该如何改?

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


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

    If e.Row("数量") >= 500 Then
        e.Style = "a"
    End 
If


 回到顶部