Foxtable(狐表)用户栏目专家坐堂 → [求助]最后一个订单明细删除时删除订单


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

主题:[求助]最后一个订单明细删除时删除订单

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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
[求助]最后一个订单明细删除时删除订单  发帖心情 Post By:2016/6/3 10:05:00 [只看该作者]

订单信息和订单明细两表关联,最后一个订单明细删除时删除订单,执行时出现如下对话框。


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160603094706.png
图片点击可在新窗口打开查看

代码写在订单明细的DataRowDeleting表属性中


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/3 10:09:00 [只看该作者]

 贴出你写的代码。

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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/3 10:15:00 [只看该作者]

Dim pr As DataRow = e.DataRow.GetParentRow("订单信息")

If pr IsNot  Nothing Then

     If pr.GetChildRows("订单明细").count  = 1 Then

           pr.Delete

     End If

End If


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/3 10:21:00 [只看该作者]

Dim pr As DataRow = e.DataRow.GetParentRow("订单信息")

If pr IsNot  Nothing Then

     If pr.GetChildRows("订单明细").count  = 1 Then

SystemReady = False

           pr.Delete

SystemReady = True

     End If

End If


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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/3 10:39:00 [只看该作者]

还是不对

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:生产管理v4.zip

密码:888

麻烦狐爸看一下


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/3 10:52:00 [只看该作者]

同步删除关联行,去掉勾选

 

http://www.foxtable.com/help/topics/1644.htm

 


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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/3 10:57:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20160603105612.png
图片点击可在新窗口打开查看

出来这个


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/3 10:58:00 [只看该作者]

 我测试没问题。重新打开项目测试。

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


加好友 发短信
等级:童狐 帖子:260 积分:3307 威望:0 精华:0 注册:2016/5/21 14:28:00
  发帖心情 Post By:2016/6/3 11:00:00 [只看该作者]

是不是SystemReady = False和SystemReady = True去掉就可以了?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/3 11:00:00 [只看该作者]

以下是引用syjylyq在2016/6/3 11:00:00的发言:
是不是SystemReady = False和SystemReady = True去掉就可以了?

 

这两句不用写。


 回到顶部
总数 11 1 2 下一页