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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联单据删除

共有4793人关注过本帖树形打印复制链接主题：关联单据删除

青丘狐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2679 威望：0 精华：0 注册：2018/11/11 15:52:00

关联单据删除 发帖心情

Post By：2023/1/12 22:56:00 [只看该作者]

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编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/12 23:08:00 [只看该作者]

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

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

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

Dim s As String = DataTables("入库明细").GetComboListString("入库明细单号", "[入库单号] ='" & Tables("入库").current("入库单号") & "'")

DataTables("入库明细码单").DeleteFor("[入库明细单号] in ('" & s.replace("|", "','") & "')")

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

End If

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

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

Tables("入库").Current.Delete

End If

青丘狐

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2679 威望：0 精华：0 注册：2018/11/11 15:52:00

Post By：2023/1/12 23:10:00 [只看该作者]

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

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

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

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

青丘狐

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2679 威望：0 精华：0 注册：2018/11/11 15:52:00

Post By：2023/1/12 23:27:00 [只看该作者]

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

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

青丘狐

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2679 威望：0 精华：0 注册：2018/11/11 15:52:00

Post By：2023/1/12 23:36:00 [只看该作者]

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

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/13 8:37:00 [只看该作者]

截图所有列数据发上来看看

weijun

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：600 积分：4339 威望：0 精华：0 注册：2013/11/2 18:22:00

Post By：2023/1/13 14:20:00 [只看该作者]

用内部数据库测试可以

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

青丘狐

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2679 威望：0 精华：0 注册：2018/11/11 15:52:00

Post By：2023/1/13 14:44:00 [只看该作者]

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

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

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

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/13 15:02:00 [只看该作者]

删除后保存一下表格才起效

青丘狐

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：348 积分：2679 威望：0 精华：0 注册：2018/11/11 15:52:00

Post By：2023/1/13 19:58:00 [只看该作者]

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

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

DataTables("入库").Save()

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

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：关联单据删除