| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]关闭窗口时检查关联子表是否存在明细 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106444) |
| -- 作者：liuyixin662 -- 发布时间：2017/9/8 18:31:00 -- [求助]关闭窗口时检查关联子表是否存在明细 老师你好,关闭窗口时检查关联子表是否存在明细数据代码运行效率不高,随着单据号的增加,检查时间也长了,麻烦老师修改一下代码,谢谢!!! 窗口的BeforeClose事件代码如下:
For Each dr As DataRow In DataTables("产品出库主表").sqlselect("出库单号 is not null") Dim dr2 As DataRow = DataTables("产品出库明细表").sqlfind("出库单号 =\'" & dr("出库单号") & "\'") If dr2 Is Nothing Then MessageBox.show(dr("出库单号") & " 当前单据无明细数据, 只有补充明细或删除单据方可退出","提示!!!") e.Cancel = True End If Next |
| -- 作者：有点蓝 -- 发布时间：2017/9/8 20:11:00 -- 这种逻辑本身就不合理。 1、在切换主表的出库单的时候就检查，没有问题才能编辑下一个单。 2、只检查今天的单，或者是新建还没有审核的单 |
| -- 作者：liuyixin662 -- 发布时间：2017/9/8 20:58:00 -- 谢谢 |