以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  记录行颜色显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2078)

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


--  作者:yuansq
--  发布时间:2009/3/13 11:50:00
--  
直接用关联筛选吧

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

--  作者:cpayinyuan
--  发布时间:2009/3/13 12:42:00
--  

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

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

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

--  作者:实话实说
--  发布时间:2009/3/13 13:24:00
--  

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


--  作者:cpayinyuan
--  发布时间:2009/3/13 15:03:00
--  
以下是引用实话实说在2009-3-13 13:24:00的发言:

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

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


--  作者:实话实说
--  发布时间:2009/3/13 15:52:00
--  
对不起,现在才上网
表B中的型号与表A中的型号不一样,则表B该行没有颜色标识.我希望无论是型号还是规格,只要有一项与表A不一样,就用颜色标示,现在只是规格不同才有颜色
--  作者:cpayinyuan
--  发布时间: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


--  作者:实话实说
--  发布时间:2009/3/13 17:19:00
--  
谢谢