以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  删除整张单据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171965)
--  作者：weijun
--  发布时间：2021/9/16 11:15:00
--  删除整张单据
表A  和表B  都有合同编号关联   要用代码删除这张单据，  关联后必须先删除子表数据   子表数据多  想一次全都删除子表和父表的当前这个合同编号数据怎么写代码
--  作者：有点蓝
--  发布时间：2021/9/16 11:33:00
--  
参考;http://www.foxtable.com/webhelp/topics/0394.htm
DataTables("表B").DeleteFor("[合同编号] =\'" & Tables("表A").current("合同编号") & "\'")
--  作者：weijun
--  发布时间：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
--  发布时间：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

 

这样写可以了
--  作者：有点蓝
--  发布时间：2021/9/16 13:33:00
--  

If Tables("采购计划明细表").Current IsNot Nothing Then

改为

If Tables("采购计划表").Current IsNot Nothing Then