Foxtable(狐表)用户栏目专家坐堂 → 如何判断是否有关联数据,如果没有则打开一个窗口?


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

主题:如何判断是否有关联数据,如果没有则打开一个窗口?

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


加好友 发短信
等级:五尾狐 帖子:1062 积分:9781 威望:0 精华:0 注册:2012/3/13 5:23:00
如何判断是否有关联数据,如果没有则打开一个窗口?  发帖心情 Post By:2013/2/4 0:43:00 [只看该作者]

如题

环境: 表a 《label》 和 表b 《名称》 是关联项

内容:

窗口1 里面包含 两个表

表a 和 表a.表b

问题:

在表a 的 《label》列 输入数据后 查询关联表有没有关联数据。如果没有关联数据 打开“添加档口”窗口

想写这样的一段代码。 不知道该写在什么位置?

是应该写在窗口1 的 什么属性里面吧? 如果上面的代码有什么问题,也同时帮忙改一下,非常非常感谢


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


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/2/4 3:21:00 [只看该作者]

 

大概了解楼主的意思

 

表a 中,表DataColChanged事件中

 

If e.DataCol.Name = "label" Then     如果是label列的内容发生了变化

    Dim dr As DataRow
    dr = DataTables("表B").Find("名称 = " & "'" & e.DataRow("label") & "'" )  

    If dr Is Nothing Then   如果表B中不存在相同的记录

     Forms("添加档口").Open()    打开“添加档口”窗口    

    End If
End If

 

看下是不是这样


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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/2/4 9:00:00 [只看该作者]

 或者这样。

select case e.DataCol.Name
    case "label"
        if tables("表A.表B").rows.count = 0 then
            Forms("添加档口").Show()
        end if
end select

 回到顶部