以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  明细表无数据无法新增主表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142034)

--  作者:有点蓝
--  发布时间:2019/10/17 9:56:00
--  
If Tables("成品出库").Current Is Nothing then return 
Dim r As Row = Tables("成品出库").Current
If r.DataRow.GetChildRows("成品出库明细表").Count = 0 Then
msgbox("请先点击下面导入按钮导入业务的发货通知单")
e.Cancel = True
End If

--  作者:有点蓝
--  发布时间:2019/10/17 14:57:00
--  
我测试没有问题,请上传实例说明