主题：[求助]表A逻辑列打勾，关联表B不可编辑

主表A和子表B关联，表A中有逻辑列X，逻辑列X打勾后，子表B相关联的内容相将不允许再编辑，请前辈老师帮忙写个代码，谢谢！

老师试了一下没有成功，我把项目上传，请帮我看一看，谢谢！

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表a逻辑列打勾，关联表b不可编辑.table

老师：上面项目我希望表A逻辑列打勾后，表B相关内容不好编辑（即不好增加行等），但子表C还可以编辑。

老师：如果逻辑列打勾后，表B不允许增加行，那代码又怎么写呢？

老师：上面两个代码都要用吗？

谢谢老师！

Dim fdr As DataRow = e.DataRow.GetParentRow("表A")
If fdr IsNot Nothing AndAlso fdr("X") = True Then
    If e.DataRow("A") = fdr("A") AndAlso e.DataRow("B") = fdr("B") Then
        e.DataRow.Delete
    End If
End If

 

老师：上面这段代码，如果表A逻辑列打勾后不小心在表B中增加行时，就会删除表B中原来的行

OK！谢谢老师！