| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 删除关联表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=91071) |
|
| -- 作者：kjkui -- 发布时间：2016/9/28 17:05:00 -- 删除关联表 Dim Result As DialogResult Dim r As Row=Tables("订单管理.销售表").Current Dim r1 As Row=Tables("订单管理.市场部").Current Result = MessageBox.Show("是否删除选中行", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then If r IsNot Nothing Then Dim s As String = "此订单存在销售信息, 是否确定要删除此订单及其销售信息?" If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No e.Cancel= True End If Else \' Tables("订单管理").Current.Delete End If If r1 IsNot Nothing Then Dim s1 As String = "此订单存在市场部信息, 是否确定要删除此订单及其市场部信息?" If MessageBox.Show(s1,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No e.Cancel= True e.Form.CancelButton = "Button5" End If End If Else e.Cancel= True End If 哪里错了？？
|
|
| -- 作者：有点蓝 -- 发布时间：2016/9/28 17:17:00 -- 不知道！ 代码在哪个事件的？提示什么错误？你想做什么？2个表是同时判断才返回还是只判断其中一个就退出...... 问题没有描述清楚，神仙才知道什么错误
|
|
| -- 作者：kjkui -- 发布时间：2016/9/28 17:20:00 -- 点击删除按钮，会提示是否删除，点击是，会检查是否存在关联，有关联就提示是否删除，点击否关闭提示，现在的代码点击否也会删除 |
|
| -- 作者：有点蓝 -- 发布时间：2016/9/28 17:40:00 -- 按钮没有e.Cancel的用法 Dim Result As DialogResult Dim r As Row=Tables("订单管理.销售表").Current Dim r1 As Row=Tables("订单管理.市场部").Current Result = MessageBox.Show("是否删除选中行", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then If r IsNot Nothing OrElse r1 IsNot Nothing Then Dim s As String = "此订单存在销售信息或市场部信息, 是否确定要删除此订单及其销售信息和市场部信息?" If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Tables("订单管理").Current.Delete End If End If End If |
|
| -- 作者：736642114 -- 发布时间：2016/9/28 17:42:00 -- ............. |
|
| -- 作者：有点蓝 -- 发布时间：2016/9/28 17:44:00 --
|
|
| -- 作者：kjkui -- 发布时间：2016/9/28 17:45:00 -- 可以了，完美，谢谢老师！ |