Foxtable(狐表)用户栏目专家坐堂 → [求助]有表A、表B两个表,表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀?


  共有2434人关注过本帖树形打印复制链接

主题:[求助]有表A、表B两个表,表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀?

帅哥哟,离线,有人找我吗?
twef
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:402 积分:4996 威望:0 精华:0 注册:2015/4/30 15:42:00
[求助]有表A、表B两个表,表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀?  发帖心情 Post By:2015/9/1 16:00:00 [只看该作者]

有表A、表B两个表,表A第一列输入的数据判断在表B第一列中是否存在相同数据代码怎么写呀?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/1 16:03:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
twef
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:402 积分:4996 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2015/9/1 16:10:00 [只看该作者]

我的目的不是跨表引用只是判断。判断当表A输入的数据在表B没有的话,就要求在表B内新建该数据

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/1 16:18:00 [只看该作者]

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

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
twef
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:402 积分:4996 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2015/9/1 16:37:00 [只看该作者]

不知怎么写,大红袍老师帮一下忙吧!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/1 16:37:00 [只看该作者]

看4楼

 回到顶部
帅哥哟,离线,有人找我吗?
twef
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:402 积分:4996 威望:0 精华:0 注册:2015/4/30 15:42:00
  发帖心情 Post By:2015/9/1 17:00:00 [只看该作者]

大红袍老师,也许我没有说清楚,我的意思是先判断当表A输入的数据在表B没有的话,表B只能通过表B的数据录入界面来新增数据,而不是通过表A来新增

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部