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

我的意思是:由于员工档案表还有二个关联表,一是"个人简历",另一个"成员",所以在很执行下面公式时会出现提示,让我先删除关联表中的相关行后再执行,
请教,删除关联表相关行的代码如何写?
DataTables("员工档案").DeleteFor("[是否转移] = True")

说明一下,关联表是以工号做关联的

DataTables("个人简历").DeleteFor("[工号] = '" & Tables("员工档案").Current("工号") & "'")
DataTables("家庭成员").DeleteFor("[工号] = '" & Tables("员工档案").Current("工号") & "'")
DataTables("员工档案").DeleteFor("[是否转移] = True")

我做了这样的按钮公式,可是他还是提示说家庭成员表中有关联,要删除,什么原因?

谢谢贺老师!

用了四楼代码后出现错误的提示

此主题相关图片如下：删除行错误.jpg

八楼的公式成功了,再次感谢!呵呵

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
这样试试

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

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