主题：[求助]关闭窗口时检查关联子表是否存在明细

老师你好,关闭窗口时检查关联子表是否存在明细数据代码运行效率不高,随着单据号的增加,检查时间也长了,麻烦老师修改一下代码,谢谢!!!

窗口的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

谢谢