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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关闭窗口并删除关联表数据

共有2867人关注过本帖树形打印复制链接主题：关闭窗口并删除关联表数据

Dxm123456789

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

加好友

发短信

等级：婴狐帖子：12 积分：186 威望：0 精华：0 注册：2022/2/21 10:20:00

关闭窗口并删除关联表数据 发帖心情

Post By：2022/3/1 12:31:00 [只看该作者]

关闭窗口后，选择是，删除订单和订单明细，关闭窗口。选择不是，继续编辑。这是我写的代码，怎么总不对呀~~

Dim dd As Table = Tables("订单表").Current

Dim Result As DialogResult

Result = MessageBox.Show("你还没有提交订单,关闭窗口会取消新增订单,是否关闭?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Warning)

If Result = DialogResult.Yes Then

If dd.GetChildRows("订单明细").Count > 0 then

dd.Delete

dd..GetChildRows("订单明细").Delete

Forms("新订单").Close()

End If

Else

e.cancel = True

End If

cd_tdh

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

加好友

发短信

等级：狐精帖子：3106 积分：20733 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2022/3/1 12:33:00 [只看该作者]

Dim dd As Table = Tables("订单表").Current

dd..GetChildRows("订单明细").Delete

试试：

Dim r As Row = Tables("订单表").Current
Dim Result As DialogResult
Result = MessageBox.Show("你还没有提交订单,关闭窗口会取消新增订单,是否关闭?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Warning)
If Result = DialogResult.Yes Then
    Dim drs As List(Of DataRow)
    drs = DataTables("订单表").DataRows(0).GetChildRows("订单明细")
    For Each dr As DataRow In drs
        dr.Delete   '删除订单明细表中的所有明细
    Next
    r.Delete()      '删除订单表的当前行
    Forms("新订单").Close()
End If

[此贴子已经被作者于2022/3/1 12:47:27编辑过]