以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]有表A、表B两个表，表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74073)
--  作者：twef
--  发布时间：2015/9/1 16:00:00
--  [求助]有表A、表B两个表，表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀？
有表A、表B两个表，表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀？
--  作者：大红袍
--  发布时间：2015/9/1 16:03:00
--  

就是跨表引用的知识而已。

 

http://www.foxtable.com/help/topics/1451.htm

 
--  作者：twef
--  发布时间：2015/9/1 16:10:00
--  
我的目的不是跨表引用只是判断。判断当表A输入的数据在表B没有的话，就要求在表B内新建该数据
--  作者：大红袍
--  发布时间：2015/9/1 16:18:00
--  

一样的意思，一样用find函数

 

http://www.foxtable.com/help/topics/2490.htm

 
--  作者：twef
--  发布时间：2015/9/1 16:37:00
--  
不知怎么写，大红袍老师帮一下忙吧！
--  作者：大红袍
--  发布时间：2015/9/1 16:37:00
--  
看4楼
--  作者：twef
--  发布时间：2015/9/1 17:00:00
--  
大红袍老师，也许我没有说清楚，我的意思是先判断当表A输入的数据在表B没有的话，表B只能通过表B的数据录入界面来新增数据，而不是通过表A来新增
--  作者：大红袍
--  发布时间：2015/9/1 17:09:00
--  

DataColChanged事件

 

Select Case e.DataCol.name
    Case "产品编号"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
        If dr Is Nothing Then
            msgbox("库存表没有")
            forms("窗口1").Show
        End If
End  Select