关联单据删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If Tables("入库明细").Current IsNot Nothing Then

If MessageBox.Show("明细数据删除?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

DataTables("入库明细码单").DeleteFor("[入库明细单号] ='" & Tables("入库明细").current("入库明细单号") & "'")

Tables("入库明细").Current.Delete

End If

If Tables("入库").Current IsNot Nothing Then

If MessageBox.Show("是否删除整张单据?", "请确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

DataTables("入库明细").DeleteFor("[入库单号] ='" & Tables("入库").current("入库单号") & "'")

Tables("入库").Current.Delete

End If

入库和入库明细关联入库单号，入库明细和入库明细码单关联入库明细单号删除数据时，入库明细有2行数据每行关联入库明细码单2行数据，入库明细码单有4行数据代码只能删除选中的入库明细单当前行关联的入库明细码单数据，没有把入库明细码单的数据要全部删除，请问代码怎么改

[此贴子已经被作者于2023/1/12 23:05:30编辑过]

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

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

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

[此贴子已经被作者于2023/1/12 23:14:47编辑过]

还是一样只删除了选中的入库明细单当前行关联的入库明细码单数据删除，没有把入库明细码单的数据全部删除，但入库的当前数据和入库明细的显示数据可以全部删除可以达到效果

[此贴子已经被作者于2023/1/12 23:32:07编辑过]

如果改三个表一起关联同一个字段要好些？可以三个表一起关联入库单号

图片点击可在新窗口打开查看此主题相关图片如下：21.png

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

SQL数据库不行没有删除完，DataTables("入库明细码单").DeleteFor("[入库明细单号] in ('" & s.replace("|", "','") & "')") 后台删除吗？

DataTables("入库明细码单").Save()

DataTables("入库明细").Save()

DataTables("入库").Save()

在结尾一直加里了保存还是没有删除赶紧，入库明细码单当前显示的可删除，没有显示的相同入库明细单号应该也要删除，没有删除没有显示的相同入库明细单号

测试在入库明细只有一条记录，关联入库明细码单有不管是N条记录可以删除，入库明细有2条以上记录只能删除选中的入库明细和关联的入库明细码单

用 SQLDeleteFor 解决了

主题：关联单据删除