Foxtable(狐表)用户栏目专家坐堂 → 复选框打色后改变颜色


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

主题:复选框打色后改变颜色

美女呀,离线,留言给我吧!
漂亮美眉vszh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
复选框打色后改变颜色  发帖心情 Post By:2014/7/23 13:22:00 [只看该作者]

颜色自定义为"XY"

想打勾的这几行自动标上“XY"这种颜色,在哪里设置?在表属性"绘制"列弄了下不行,这个表是副表并不允许修改。

求大侠在哪里设置?


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140723131837.jpg
图片点击可在新窗口打开查看

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


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

 就是用drawcell事件去操控,贴出你写的代码

 

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

 


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/7/23 14:29:00 [只看该作者]

打了勾,本来就有很明显的标记了,再加上行颜色标记,只是加重运行负担。

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2014/7/23 15:34:00 [只看该作者]

If Tables(添加物料_物料信息表).ShowCheckBox = True Then
            e.Style="XY"

End If
系统提示我不存在添加物料_物料信息表,这是个副窗口

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2014/7/23 15:46:00 [只看该作者]

If Tables("添加物料_物料信息表").ShowCheckBox = True Then
     e.Style="XY"
End If

 回到顶部
美女呀,离线,留言给我吧!
漂亮美眉vszh
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:869 积分:7860 威望:0 精华:0 注册:2013/5/30 11:27:00
  发帖心情 Post By:2014/7/23 15:52:00 [只看该作者]

那个引号我是加的,不行,一直系统死掉,不敢乱试了
我要的模式窗口下的副表的颜色变,求指导代码~

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


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

If Tables("添加物料_物料信息表").ShowCheckBox = True Then
    If e.Row.Checked Then
        e.Style="XY"
    End If
End If

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


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

If e.Table.Name = "添加物料_物料信息表" Then
    If Tables("添加物料_物料信息表").ShowCheckBox = True Then
        If e.Row.Checked Then
            e.Style="XY"
        End If
    End If
End If

 回到顶部