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

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

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

weijun

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

加好友

发短信

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

删除整张单据 发帖心情

Post By：2021/9/16 11:15:00 [显示全部帖子]

表A 和表B 都有合同编号关联要用代码删除这张单据，关联后必须先删除子表数据子表数据多想一次全都删除子表和父表的当前这个合同编号数据怎么写代码

weijun

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

加好友

发短信

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

Post By：2021/9/16 12:31:00 [显示全部帖子]

If Tables("采购计划明细表").Current IsNot Nothing Then
    DataTables("采购计划明细表").DeleteFor("[合同号码] ='" & Tables("采购计划表").current("合同号码") & "'")
    If MessageBox.Show("是否删除整张单据?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
        Tables("采购计划表").Current.Delete
    End If
End If

这样算完整吧

weijun

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

加好友

发短信

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

Post By：2021/9/16 12:55: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
End If

这样写可以了

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

主题：删除整张单据