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


  共有2545人关注过本帖树形打印复制链接

主题:删除整张单据

帅哥哟,离线,有人找我吗?
weijun
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
删除整张单据  发帖心情 Post By:2021/9/16 11:15:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/16 11:33:00 [只看该作者]

参考;http://www.foxtable.com/webhelp/topics/0394.htm
DataTables("表B").DeleteFor("[合同编号] ='" & Tables("表A").current("合同编号") & "'")

 回到顶部
帅哥哟,离线,有人找我吗?
weijun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 

这样写可以了


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/16 13:33:00 [只看该作者]

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

改为

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


 回到顶部