主题：子表有数据 再点新增按钮就保存后新增新的单据

If Tables("入库").Current IsNot Nothing AndAlso Tables("入库").Current.DataRow.GetChildRows("入库明细").count = 0
    MessageBox.Show("没有添加明细数据!", "提示")
    Return
End If

DataTables("入库").DataCols("入库日期").DefaultValue = "Date()"   '表日期列的默认值设置当天日期
Tables("入库").AddNew()
Tables("入库").AllowEdit = True
Tables("入库明细").Filter = "[_Identify] Is Null"

第一次新增新的单据，入库明细没有内容时点按钮时提示没有添加明细数据，当入库明细有数据 再点按钮就保存后新增新的单据