Foxtable(狐表)用户栏目专家坐堂 → 多个表其中的一个数据有改动不能退出


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

主题:多个表其中的一个数据有改动不能退出

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


加好友 发短信
等级:小狐 帖子:348 积分:2679 威望:0 精华:0 注册:2018/11/11 15:52:00
多个表其中的一个数据有改动不能退出  发帖心情 Post By:2023/1/12 10:32:00 [只看该作者]

If DataTables("入库").HasChanges Then 
    If DataTables("入库明细码单").HasChanges Then 
        If DataTables("入库明细").HasChanges Then
            If MessageBox.Show("尚未保存数据,确定退出吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                e.Form.Close
            End If 
        End If
    End If
End If

退出按钮 多个表其中的一个数据有改动不能退出,保存后才能退出,请问怎样改代码
[此贴子已经被作者于2023/1/12 10:32:24编辑过]

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/12 10:34:00 [只看该作者]

If DataTables("入库").HasChanges orelse DataTables("入库明细码单").HasChanges orelse ........ Then 
            If MessageBox.Show("尚未保存数据,确定退出吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                e.Form.Close
            End If 
End If

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


加好友 发短信
等级:小狐 帖子:348 积分:2679 威望:0 精华:0 注册:2018/11/11 15:52:00
  发帖心情 Post By:2023/1/12 10:51:00 [只看该作者]

If DataTables("入库").HasChanges OrElse DataTables("入库明细").HasChanges OrElse DataTables("入库明细码单").HasChanges Then 
    If MessageBox.Show("尚未保存数据,确定退出吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
        e.Form.Close
    End If 
End If

之前用AND连接不成功 可以了谢谢老师
[此贴子已经被作者于2023/1/12 10:53:07编辑过]

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


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/1/12 10:56:00 [只看该作者]


 回到顶部