以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  条件判断问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43985)
--  作者：sugus
--  发布时间：2013/12/20 9:16:00
--  条件判断问题
我有两个表A B， 并且A B表都有账号列，
  A表      B表
 账号      账号
            2010
如果要往A表账号列输入账号，先判断一下B表账号列是否存在相同的账号，如果存在相同账号，则提示不能输入，如果没有重复账号，则可以继续输入，代码该怎么写呢
--  作者：Bin
--  发布时间：2013/12/20 9:17:00
--  
在DataColChanged中利用Find查找是否有相同值的行 http://www.foxtable.com/help/topics/0396.htm
--  作者：Bin
--  发布时间：2013/12/20 9:19:00
--  
if e.datacol.name= "账号" then
   dim dr as datarow = datatables("表B").find("账号=\'" & e.newValue & "\'")
  if dr isnot nothing then
      messagebox.show("已经有存在行")
      e.datarow("账号")=""
  end if
end if
--  作者：sugus
--  发布时间：2013/12/20 9:24:00
--  
谢谢Bin