Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
请帮忙设置:
1 当点击Button1时,“颜色组定义”表当前行的“颜色组”列和“颜色资料”表当前行的“颜色编号”、“颜色”列合并为一行增加到“颜色组定义_颜色组配置”表中;
2 当点击Button2时,如果“颜色组定义_颜色组配置”表当前行的“颜色编号”、“颜色”列已经被引用到实例中,则不能删除,否则删除当前行;
3 隐藏“颜色资料”表中与“颜色组定义_颜色组配置”表的“颜色编号”、“颜色”列内容相同的行,不相同时恢复显示;
下载信息 [文件大小: 下载次数: ] | |
![]() |
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、没明白···
Syscmd.Row.HideSelectedRows() 就是隐藏选定的行啊,没有删除行的。
要全部显示 Tables("颜色资料").filter = ""