主题：表中规定的字段中必须输入数据才能保存

请问保存按钮  数据表中部分规定的字段必须输入数据才能保存怎样写代码？

Dim sts As String() = {"入库单号", "入库日期", "结算单位", "项目名称", "仓库名称", "业务类别", "采购类型"}
For Each st As String In sts '关联字段任一字段为空的话,不能新增明细表数据
    If Forms("入库通知单登记").controls(st).value Is Nothing Then
        MessageBox.Show("请将红色必填字段填写完整!", "提醒")
        Return
    End If
Next

 

入库明细表字段规格  品名  数量 。。。等字段中也必须输入数据才能保存这段代码怎么写

 

For Each dt As DataTable In DataTables
        If dt.HasChanges Then
            e.Form.Controls("Label16").text = "正在保存数据..."
            Application.Doevents
            dt.Save
            e.Form.Controls("Label16").text = ""
        Else
            e.Form.Controls("Label16").text = ""
            e.Form.Controls("新单").Enabled = True
        End If
Next

Dim sts As String() = {"入库单号", "入库日期", "结算单位", "项目名称", "仓库名称", "业务类别", "采购类型"}
For Each st As String In sts '关联字段任一字段为空的话,不能新增明细表数据
    If Forms("入库通知单登记").controls(st).value Is Nothing Then
        MessageBox.Show("请将红色必填字段填写完整!", "提醒")
        Return
    End If
Next

 
Dim dr() As String = {"品名", "材质", "规格", "产地", "厂发数量", "厂发单价", "含税金额"}
For Each mx As String In dr
    If Tables("入库明细").Current.isnull(mx) = True Then
        MessageBox.Show("入库明细填写完整!", "提醒")
        Return
    End If
Next

For Each dt As DataTable In DataTables
        If dt.HasChanges Then
            e.Form.Controls("Label16").text = "正在保存数据..."
            Application.Doevents
            dt.Save
            e.Form.Controls("Label16").text = ""
        Else
            e.Form.Controls("Label16").text = ""
            e.Form.Controls("新单").Enabled = True
        End If
    Next

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.5.12.2
错误所在事件：窗口,入库通知单登记,保存,Click
详细错误信息：
未将对象引用设置到对象的实例。

执行第一段代码没有问题，第二段有问题

找到原因了，入库明细必须有新增一行，没有新增一行代码怎样写？

Dim sts As String() = {"入库单号", "入库日期", "结算单位", "项目名称", "仓库名称", "业务类别", "采购类型"}
For Each st As String In sts '关联字段任一字段为空的话,不能新增明细表数据
    If Forms("入库通知单登记").controls(st).value Is Nothing Then
        MessageBox.Show("请将红色必填字段填写完整!", "提醒")
        Return
    End If
Next

 If Tables("入库明细").rows.count = 0 Then
        MessageBox.Show("入库明细没有数据!", "提醒")
        Return
    End If

Dim dr As String() = {"品名", "材质", "规格", "产地", "厂发数量", "厂发单价", "含税金额"}
For Each mx As String In dr
    If Tables("入库明细").Current.isnull(mx) = True Then
        MessageBox.Show("入库明细填写完整!", "提醒")
        Return
    End If
Next

For Each dt As DataTable In DataTables
    If dt.HasChanges Then
        e.Form.Controls("Label16").text = "正在保存数据..."
        Application.Doevents
        dt.Save
        e.Form.Controls("Label16").text = ""
    Else
        e.Form.Controls("Label16").text = ""
        e.Form.Controls("新单").Enabled = True
    End If
Next

 

好了谢谢

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.5.13.2
错误所在事件：窗口,入库通知单登记,保存,Click
详细错误信息：
未将对象引用设置到对象的实例。

 

保存代码可以运行有时会出错，代码不严谨吗？麻烦老师帮看看