Foxtable(狐表)用户栏目专家坐堂 → 保存退出


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

主题:保存退出

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


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
保存退出  发帖心情 Post By:2022/5/13 15:51:00 [只看该作者]

退出按钮,数据有过保存直接退出不删除当前数据,不需要保存数据退出时删除当前父表子表明细表的数据的代码

有过保存的操作代码怎么写

 

If MessageBox.Show("退出吗?", "提示!", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
   
    If Tables("入库明细").Current IsNot Nothing Then
        If MessageBox.Show("明细数据删除?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
           
            DataTables("入库明细码单").DeleteFor("[入库明细单号] ='" & Tables("入库明细").current("入库明细单号") & "'")
           
            Tables("入库明细").Current.Delete
        End If
    End If
   
    If Tables("入库").Current IsNot Nothing Then
       
        If MessageBox.Show("是否删除整张单据?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            DataTables("入库明细").DeleteFor("[入库单号] ='" & Tables("入库").current("入库单号") & "'")
           
            Tables("入库").Current.Delete
           
        End If
    End If
   
End If
e.Form.Close

 

 


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/13 16:03:00 [只看该作者]


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


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
  发帖心情 Post By:2022/5/13 21:55:00 [只看该作者]

If DataTables("入库明细").HasChanges = False And Tables("入库明细").rows.count = 0 Then
    MessageBox.Show("是否退出!", "提醒")
    If Tables("入库明细").Current IsNot Nothing Then
        DataTables("入库明细码单").DeleteFor("[入库明细单号] ='" & Tables("入库明细").current("入库明细单号") & "'")
        Tables("入库明细").Current.Delete
    End If     
    If Tables("入库").Current IsNot Nothing Then '       
        DataTables("入库明细").DeleteFor("[入库单号] ='" & Tables("入库").current("入库单号") & "'")
        Tables("入库").Current.Delete   
    ElseIf DataTables("入库").HasChanges = True And Tables("入库明细").rows.count = 0 Then
        If Tables("入库明细").Current IsNot Nothing Then
            DataTables("入库明细码单").DeleteFor("[入库明细单号] ='" & Tables("入库明细").current("入库明细单号") & "'")
            Tables("入库明细").Current.Delete
        End If
        If Tables("入库").Current IsNot Nothing Then '       
            DataTables("入库明细").DeleteFor("[入库单号] ='" & Tables("入库").current("入库单号") & "'")
            Tables("入库").Current.Delete       
        End If
    End If
End If
e.Form.Close

 

请老师帮看下代码可以精简不?


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/14 8:53:00 [只看该作者]

没看懂,解释一下这个代码需要实现什么功能?

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


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
  发帖心情 Post By:2022/5/14 10:48:00 [只看该作者]

打开入库窗口,入库表已经自动填写了入库单号日期  我不想编辑了直接退出,不要数据保存,或者入库表入库明细表都输了数据,我想退出是不要数据保存。


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/14 11:13:00 [只看该作者]

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

 回到顶部