Foxtable(狐表)用户栏目专家坐堂 → 记录行颜色显示


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

主题:记录行颜色显示

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
记录行颜色显示  发帖心情 Post By:2009/3/13 11:11:00 [只看该作者]

现往表B的型号和规格列批量复制数据,当表B的数据与表A没有对应的数据时,在表B没有对应的数据行上用颜色标识,以便在表A补充,请告诉我代码怎么写.谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


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


加好友 发短信
等级:贵宾 帖子:80 积分:788 威望:0 精华:0 注册:2008/9/1 11:23:00
  发帖心情 Post By:2009/3/13 11:50:00 [只看该作者]

直接用关联筛选吧

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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
  发帖心情 Post By:2009/3/13 12:16:00 [只看该作者]

用颜色标注,需要在表的Drawcell事件中根据条件设置样式即可,帮助中比较详细,比葫芦画piao即可.
[此贴子已经被作者于2009-3-13 12:16:16编辑过]

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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
  发帖心情 Post By:2009/3/13 12:42:00 [只看该作者]

我做了一个传上来,不知是不是你想要的!代码在表的DrawCell事件中.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2009-3-13 12:42:56编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2009/3/13 13:24:00 [只看该作者]

你做的就是我想要的,只是型号和规格要同时满足,你做的是规格满足.我很笨,麻烦你完善一下,谢谢.


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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
  发帖心情 Post By:2009/3/13 15:03:00 [只看该作者]

以下是引用实话实说在2009-3-13 13:24:00的发言:

你做的就是我想要的,只是型号和规格要同时满足,你做的是规格满足.我很笨,麻烦你完善一下,谢谢.

没有明白什么是:“型号和规格要同时满足”,你可以举个例子说明一下,或者自己把代码改一下。


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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2009/3/13 15:52:00 [只看该作者]

对不起,现在才上网
表B中的型号与表A中的型号不一样,则表B该行没有颜色标识.我希望无论是型号还是规格,只要有一项与表A不一样,就用颜色标示,现在只是规格不同才有颜色

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


加好友 发短信 一级勋章
等级:六尾狐 帖子:1412 积分:8937 威望:0 精华:0 注册:2008/9/1 8:57:00
  发帖心情 Post By:2009/3/13 16:30:00 [只看该作者]

以下是引用实话实说在2009-3-13 15:52:00的发言:
对不起,现在才上网
表B中的型号与表A中的型号不一样,则表B该行没有颜色标识.我希望无论是型号还是规格,只要有一项与表A不一样,就用颜色标示,现在只是规格不同才有颜色

你的意思应该是:只要表B中的型号和规格中两项中有一项与表A中不一致,则表B中作颜色标识。对吧?
若是这样,把DrawCell中的代码改为:
dim ff as string= "[规格]='" & e.row("规格") & "'and [型号]='" & e.row("型号") & "'"
if tables("表A").findrow(ff,0,True)=-1  and e.row.IsNull(e.col.name) = False
 e.style="AAA"
end if


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


加好友 发短信
等级:九尾狐 帖子:2649 积分:19384 威望:0 精华:1 注册:2008/9/12 9:19:00
  发帖心情 Post By:2009/3/13 17:19:00 [只看该作者]

谢谢

 回到顶部