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

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"

 

 

 

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

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

Tables("入库").save

Tables("入库明细").save

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

提示 没有添加明细数据，不能保存和新增

那就是没有添加明细啊

是明细已经输入了，提示 没有添加明细数据，想当入库明细有数据 再点按钮就保存后新增新的单据

此主题相关图片如下：删除.png

入库和入库明细有做关联吗？是入库表当前行的明细吗？

If e.Table.current Is Nothing Then
    DataTables("入库明细码单").loadfilter = "1=2"
Else
    DataTables("入库明细码单").loadfilter = "入库码单号 = '" & e.Table.current("入库码单号") & "'"
End If
DataTables("入库明细码单").load

 

 

CurrentChanged

选择不同数据行后执行,也就是Current属性发生变化后执行.

If e.Table.current Is Nothing Then
    DataTables("入库明细").loadfilter = "1=2"
Else
    DataTables("入库明细").loadfilter = "入库单号 = '" & e.Table.current("入库单号") & "'"
End If
DataTables("入库明细").load

 

入库明细   入库单号关联

关联的单号肯定没有数据