以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]排除重复值后的值会自动同步更新到其他表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98498)

--  作者:jick0526
--  发布时间:2017/3/30 18:02:00
--  [求助]排除重复值后的值会自动同步更新到其他表
老师,请问下,我想要表A的A列在排除重复值后的值会自动同步更新到表B的B列,这代码该怎么写,谢谢!
--  作者:狐狸爸爸
--  发布时间:2017/3/30 18:09:00
--  
排除重复值之后:

For each r1 as row in tables("表A").rows
Dim r2 as row = Tables("表B").AddNew()
        r2("B列") = r1("A列")
next

--  作者:jick0526
--  发布时间:2017/3/30 18:29:00
--  
老师,可能是我表达错了,我想要的效果是比如表A的A列输入1,2,2,3时,表B的B列会自动输入1,2,3,(因为2重复),当表A输入2,3,4时,表B只会自动输入4(因为2,3已经有了),就是表B会不断的更新表A里A列去除掉重复值后的唯一值,如果表A的A列有的行没有数据,例如空行,那默认就不会复制,麻烦老师帮我改下,辛苦了,谢谢!
--  作者:有点色
--  发布时间:2017/3/30 19:18:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2490.htm