主题：用逻辑列来控制删除子表行

几句代码，搞死我了。

 

很简单的思路，当前行为逻辑列，如果勾选了，关联子表中就执行规定动作；如果取消勾选了，则删除关联子表中关联行。

 

尝试了一下代码，搞不定，高手帮忙修整下：

 

 

If e.DataCol.Name = "同意" Then  '如果是当前是逻辑列“同意”

 

    If e.NewValue = True Then '而且变动后的值是True(已勾选)
’执行动作
    End If

 

    If e.NewValue = False Then '而且变动后的值是false(取消勾选)
        '如果关联子表中存在关联行的话,删除之
        Dim pr As DataRow = e.DataRow.GetParentRow("推荐") '获得此明细对应的订单
        If pr IsNot  Nothing Then '如果有对应的订单
            Tables("考察").Current.Delete
        End If
    End If

 

End If