以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如果 子表中有相同信息 提示信息  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67712)
--  作者：jinzhengbe
--  发布时间：2015/4/29 16:52:00
--  如果 子表中有相同信息 提示信息
表a  父表   表b 子表

if 表a 的 第一列 输入的内容  在表b 的第二列 有完全相同的字段 then
  不提示
else
  如果没有 then  

提示 没有此商品，并弹窗 

end if
--  作者：Bin
--  发布时间：2015/4/29 17:00:00
--  
datacolchanged
if e.datacol.name = "第二列" then 
dim dr as datarow = datatables("表B").find("第二列=\'" & e.datarow("第二列") & "\'")
 if dr is nothing then
    messagebox.show("没有此商品")
 edn if
end if
--  作者：jinzhengbe
--  发布时间：2015/4/29 17:08:00
--  
非常非常感谢