主题：保存时检查子表明细和字段是否为空值

With Tables("采购计划")
    If .Current Is Nothing Then
        Return
    End If
End With

If Tables("采购计划明细表").Current Is Nothing Then
    Tables("采购计划").Current.Delete
End If

Dim r As Row = Tables("采购计划").current
If r IsNot Nothing Then
    If r.DataRow.GetChildRows("采购计划明细表").Count > 0 Then
        If DataTables("采购计划明细表").Find("采购ID='" & r("采购ID") & "' and (采购重量 Is Null or 含税金额 Is Null)") IsNot Nothing Then
            '        If DataTables("采购计划明细表").Find("采购ID='" & r("采购ID") & "' and (采购重量 IsNull or 含税金额 IsNull)") Is Nothing Then
            MessageBox.Show("采购计划明细表数据输入不完整！", "提示")
            Return
        Else
            r.delete
        End If
    End If
End If

Tables("采购计划明细表").Save
Tables("采购计划").save

采购重量 Is Null or 含税金额 Is Null  是空值时

MessageBox.Show("采购计划明细表数据输入不完整！", "提示") 这段代码没有执行，

按下保存按钮当  采购重量 含税金额   没有数据是空值时

MessageBox.Show("采购计划明细表数据输入不完整！", "提示") 这个提示框没有弹出

采购重量 含税金额   没有数据是空值时是不要保存数据，

采购重量 含税金额   有数据不是空值时才要保存数据。