- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 颜色组设置 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10762)
-- 发布时间：2011/6/22 13:06:00
-- 颜色组设置
请帮忙设置：
1 当点击Button1时，“颜色组定义”表当前行的“颜色组”列和“颜色资料”表当前行的“颜色编号”、“颜色”列合并为一行增加到“颜色组定义_颜色组配置”表中；
２ 当点击Button２时，如果“颜色组定义_颜色组配置”表当前行的“颜色编号”、“颜色”列已经被引用到实例中，则不能删除，否则删除当前行；
３ 隐藏“颜色资料”表中与“颜色组定义_颜色组配置”表的“颜色编号”、“颜色”列内容相同的行，不相同时恢复显示；
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:颜色组设置.table |
-- 发布时间：2011/6/22 16:26:00
--
1、 3、
Dim r3 As Row = Tables("颜色组配置表").addnew()
Dim r2 As Row = Tables("颜色资料").current
Dim r1 As Row = Tables("颜色组定义").current
r3("颜色组") = r1("颜色组")
r3("颜色编号") = r2("颜色编号")
r3("颜色名") = r2("颜色")
Tables("颜色资料").focus
Syscmd.Row.HideSelectedRows()
2、没明白···
[此贴子已经被作者于2011-6-22 17:32:03编辑过]
-- 发布时间：2011/6/22 22:11:00
--
第1个问题已解决
第3个问题:是临时隐藏,不是删除
此主题相关图片如下：第3个问题效果图.jpg
-- 发布时间：2011/6/22 23:52:00
--
Syscmd.Row.HideSelectedRows() 就是隐藏选定的行啊，没有删除行的。
要全部显示 Tables("颜色资料").filter = ""
-- 发布时间：2011/6/23 8:55:00
--
当“颜色组定义_颜色组配置表”新增行内容重复时则撤消新增，请问如何设置？