[求助] 表间关联关系取消命令 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 表间关联关系取消命令

共有4867人关注过本帖树形打印复制链接主题：[求助] 表间关联关系取消命令

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/6 22:31:00 [显示全部帖子]

设置一个变量，按下按钮的时候，改变这个变量，在代码里，加入变量判断是否执行对应代码

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/6 22:33:00 [显示全部帖子]

按钮代码

vars("取消") = True

事件代码

If vars("取消") Then
    Return
End If
Dim t As Table = Tables("机房消防器材登记表主窗口_Table2")
With Tables("机房消防器材登记表")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "机房名称 = '" & .Current("机房名称") & "'"
        't.Filter = "机房名称 = '" & .Current("机房名称") & "' And 设备_设备名称 = '" & .Current("设备名称") & "'"
    End If

End With