| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]这关闭代码哪里出错啦？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33681) |
| -- 作者：dengzhihao -- 发布时间：2013/5/22 16:54:00 -- [求助]这关闭代码哪里出错啦？ 为什么点击关闭的时候，总是连项目也一起关闭掉了！到底哪里出错啦？ Dim Result As DialogResult With Tables("销售副表") If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改 e.Form.Close Return Else Result = MessageBox.Show("该记录没有保存,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.yes Then DataTables("销售主表").DeleteFor("合计金额 Is NULL") DataTables("销售副表").DeleteFor("产品名称 Is NULL") DataTables("销售副表").Save() DataTables("销售主表").Save() End If Tables("销售副表").Current.Reject() Tables("销售主表").Current.Reject() End If End With Forms("录入销售单据").Close
|
| -- 作者：XYT -- 发布时间：2013/5/22 17:00:00 -- Tables("销售副表").Current.Reject()
Tables("销售主表").Current.Reject()
应该是这里，怎么能同时选择2个表 |
| -- 作者：dengzhihao -- 发布时间：2013/5/22 17:09:00 -- 以下是引用XYT在2013-5-22 17:00:00的发言：
不行哦！删除了这两行代码还是不行！
Tables("销售副表").Current.Reject()
Tables("销售主表").Current.Reject()
应该是这里，怎么能同时选择2个表 |
| -- 作者：Bin -- 发布时间：2013/5/22 17:10:00 -- 是否触发了某些行事件的代码.造成死循环了. |
| -- 作者：dengzhihao -- 发布时间：2013/5/22 17:15:00 -- 以下是引用Bin在2013-5-22 17:10:00的发言：
应该是死循环了，但找不到原因呀！
是否触发了某些行事件的代码.造成死循环了. |