主题：请教:删除关联表中相关行的代码?

Dim dr As DataRow = DataTables("产品").DataRows(0)
For Each sr As DataRow In dr.GetChildRows("订单")
    sr.Delete()
Next
dr.Delete
如果要删除2极关联表代码怎么写。
如计划目录关联计划工序；计划工序再关联计划工艺。有关联的全删除。
我写了一下代码计划工艺表内容不能删除，不知咋搞：
Dim dr As DataRow = DataTables("计划目录").DataRows(0)
For Each sr As DataRow In dr.GetChildRows("计划工序")
    sr.Delete()
Next
dr.Delete
Dim dr1 As DataRow = DataTables("计划工序").DataRows(0)
For Each sr As DataRow In dr1.GetChildRows("计划工艺")
    sr.Delete()
Next
dr1.Delete
但是计划目录关联计划工序有1、2、列；计划工序关联计划工艺有1、2、3、4列，是不是要加一个关联：计划目录关联计划工艺1、2列，再重新写代码，还是指定3个表1、2列相同的就删除，目的是这样。不知咋搞，请帮帮忙，谢谢

Dim dr1 As DataRow = DataTables("计划工序").DataRows(0)
For Each sr As DataRow In dr1.GetChildRows("计划工艺")
    sr.Delete()
Next
dr1.Delete
Dim dr As DataRow = DataTables("计划目录").DataRows(0)
For Each sr As DataRow In dr.GetChildRows("计划工序")
    sr.Delete()
Next
dr.Delete
这样试试

还是不行，计划工艺中内容没删除

分成两个按钮是否可以全删除？

我也试过了，在计划工艺表中只能删除与计划工序关联的1、2、3、4列的行

那当然，你说的工序是和工艺有关联，当然是只删除相关联的行啊

套用帮助
Dim r As Row = Tables("订单").Current
DataTables("订单明细").DeleteFor("[订单编号] = '" & r("订单编号") & "'")
r.Delete()
搞定
Dim r As Row = Tables("计划目录").Current
DataTables("计划工序").DeleteFor("   [图号] = '" & r("图号") & "' and [派工单号] = '" & r("派工单号") & "' ")
DataTables("计划工艺").DeleteFor("   [图号] = '" & r("图号") & "' and [派工单号] = '" & r("派工单号") & "' ")
r.Delete()
谢谢各位指导