窗口关闭后执行I
f Tables("进仓单主表").Current Is Nothing Then
e.Cancel = False
End If
If Tables("进仓单主表").Current IsNot Nothing Then
If Tables("进仓单主表").Current.IsNull("入仓单号") = False Then
Dim dcs As List(Of DataRow) = Tables("进仓单主表").Current.DataRow.GetChildRows("进仓单明细")
If dcs.Count = 0 Then
If MessageBox.Show("没有明细,请检查,是否强行关闭","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Tables("进仓单主表").Current.Delete()
e.Cancel = False
Else
e.Cancel = True
End If
End If
If dcs.Count > 0 Then
For Each dc As DataRow In dcs
If dc.IsNull("编号") OrElse dc.IsNull("品名") OrElse dc.IsNull("规格") OrElse dc.IsNull("单位") OrElse dc.IsNull("数量") OrElse dc.IsNull("单价") OrElse dc.IsNull("入仓单号") OrElse dc.IsNull("申购单号") OrElse dc.IsNull("明细序号") OrElse dc.IsNull("金额") Then
If MessageBox.Show("明细必填项有空值,请检查,是否强行关闭","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Tables("进仓单主表").Current.Delete()
e.Cancel = False
Exit For
Else
e.Cancel = True
End If
End If
Next
End If
End If
End If
If Tables("进仓单主表").Current IsNot Nothing Then
Dim dz As Row = Tables("进仓单主表").Current
If dz.IsNull("入仓部门") OrElse dz.IsNull("入库日期") OrElse dz.IsNull("仓管") OrElse dz.IsNull("缴仓") OrElse dz.IsNull("入仓单号") Then
If MessageBox.Show("主表记录或明细必填项有空值,请检查,是否强行关闭","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Tables("进仓单主表").Current.Delete()
e.Cancel = False
Else
e.Cancel = True
End If
End If
End If
加好友 
发短信
Post By：2020/1/8 15:48:00 [只看该作者]
此主题相关图片如下：qq图片20191231093259.png
