Foxtable(狐表)用户栏目专家坐堂 → 表颜色


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

主题:表颜色

帅哥哟,离线,有人找我吗?
狐表编程总裁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
表颜色  发帖心情 Post By:2019/10/31 21:33:00 [只看该作者]

怎样通过代码改变表的某一行的颜色

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


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
  发帖心情 Post By:2019/10/31 21:41:00 [只看该作者]

不是整个表的

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/1 9:01:00 [只看该作者]


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


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
  发帖心情 Post By:2019/11/1 16:19:00 [只看该作者]

如果我想把将要删除的表标红,这个要怎么办

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


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
  发帖心情 Post By:2019/11/1 16:22:00 [只看该作者]

是将要删除的表中的某一行,然后把这行标红

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/1 16:50:00 [只看该作者]

怎么样的行是将要删除的?怎么判断?

 回到顶部
帅哥哟,离线,有人找我吗?
狐表编程总裁
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
  发帖心情 Post By:2019/11/1 17:20:00 [只看该作者]

就直接删除行 没有判断

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/1 17:37:00 [只看该作者]

既然都删除了,行都看不见,还标记什么颜色?标记到哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
狐表编程总裁
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:71 积分:496 威望:0 精华:0 注册:2019/10/15 16:33:00
  发帖心情 Post By:2019/11/1 17:59:00 [只看该作者]

就是删除行前表有个事件,然后我想在这个事件里加个对话框,判定是否删除,在有这个对话框的时候把要删除的这一行标红

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/11/1 20:29:00 [只看该作者]

BeforeDeleteDataRow事件


vars("id") = e.DataRow("_Identify")
Tables("表A").Refresh
msgbox(1) ‘打开对话框
vars("id") = -1

DrawCell事件

If e.Row("_Identify") = vars("id") Then e.Style = "样式1"


 回到顶部
总数 14 1 2 下一页