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

也就是在员工简历表中删除工号等于选定行的记录：


DataTables("个人简历").DeleteFor("[工号] = '" & Tables("员工档案").Current("工号") & "'")

你的代码，前两行是针对当前选定行的，而第三行是针对是否转移为True的行，前后不匹配。

Dim drs As List(Of DataRow) = DataTables("员工档案").Select("[是否转移] = True")
For Each dr As DataRow In drs
    DataTables("个人简历").DeleteFor("[工号] = '" & dr.Current("工号") & "'")
    DataTables("家庭成员").DeleteFor("[工号] = '" & dr.Current("工号") & "'") 
    dr.Delete()   
Next

Dim drs As List(Of DataRow) = DataTables("员工档案").Select("[是否转移] = True")
For Each dr As DataRow In drs
    DataTables("个人简历").DeleteFor("[工号] = '" & dr("工号") & "'")
    DataTables("家庭成员").DeleteFor("[工号] = '" & dr("工号") & "'") 
    dr.Delete()   
Next