Foxtable(狐表)用户栏目专家坐堂 → 关于haschanges的问题


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

主题:关于haschanges的问题

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


加好友 发短信
等级:七尾狐 帖子:1501 积分:11195 威望:0 精华:0 注册:2014/8/13 16:19:00
关于haschanges的问题  发帖心情 Post By:2015/3/9 14:39:00 [只看该作者]

当前显示一个主表和子表,我想关闭该主表或者切换主表时,检查当前主表和子表是否有改动,如何实现?
我是通过菜单关闭的。
我利用CurrentTable.DataTable.haschanges时,如果鼠标点在主表,就是主表,子表就是子表。不能两个都检查一下。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/9 14:41:00 [只看该作者]

DataTables("主表").haschanges

 

DataTables("子表").haschanges

 


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


加好友 发短信
等级:七尾狐 帖子:1501 积分:11195 威望:0 精华:0 注册:2014/8/13 16:19:00
  发帖心情 Post By:2015/3/9 14:43:00 [只看该作者]

我通过菜单来实现的,所以我也不清楚当前的主表名称和子表的名称

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/3/9 14:47:00 [只看该作者]

For Each t As Table In Tables
    If t.Name Like MainTable.Name & "*" Then
        msgbox(t.name & t.DataTable.HasChanges)
    End If
Next

 


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/9 14:47:00 [只看该作者]

CurrentTable.DataTable.HasChanges
For Each re As Relation In Relations
    If Re.ParentTable.Name= CurrentTable.DataTable.name Then
          DataTables(Re.ChildTable.Name).HasChanges
    Else If Re.ChildTable.Name= CurrentTable.DataTable.name Then
          DataTables(Re.ParentTable.Name).HasChanges
    End If
Next

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/3/9 14:47:00 [只看该作者]


 回到顶部