- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 子表有数据 再点新增按钮就保存后新增新的单据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175944)
-- 发布时间：2022/3/24 18:27:00
-- 子表有数据 再点新增按钮就保存后新增新的单据
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"
第一次新增新的单据，入库明细没有内容时点按钮时提示没有添加明细数据，当入库明细有数据 再点按钮就保存后新增新的单据
-- 发布时间：2022/3/24 20:38:00
--
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"
-- 发布时间：2022/3/24 20:45:00
--
提示 没有添加明细数据，不能保存和新增
-- 发布时间：2022/3/24 21:11:00
--
那就是没有添加明细啊
-- 发布时间：2022/3/24 21:53:00
--
是明细已经输入了，提示 没有添加明细数据，想当入库明细有数据 再点按钮就保存后新增新的单据
-- 发布时间：2022/3/24 22:00:00
--
此主题相关图片如下：删除.png
-- 发布时间：2022/3/24 22:25:00
--
入库和入库明细有做关联吗？是入库表当前行的明细吗？
-- 发布时间：2022/3/24 22:28:00
--
If e.Table.current Is Nothing Then
DataTables("入库明细码单").loadfilter = "1=2"
Else
DataTables("入库明细码单").loadfilter = "入库码单号 = \'" & e.Table.current("入库码单号") & "\'"
End If
DataTables("入库明细码单").load
CurrentChanged
选择不同数据行后执行,也就是Current属性发生变化后执行.
-- 发布时间：2022/3/24 22:30:00
--
If e.Table.current Is Nothing Then
DataTables("入库明细").loadfilter = "1=2"
Else
DataTables("入库明细").loadfilter = "入库单号 = \'" & e.Table.current("入库单号") & "\'"
End If
DataTables("入库明细").load
入库明细 入库单号关联
-- 发布时间：2022/3/24 22:42:00
--
关联的单号肯定没有数据