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

 PrepareEdit事件，简单一点，可以引用父表的逻辑列，这样就不需要find函数

If e.Col.Name = "关联列" AndAlso e.Row("逻辑列") = True Then

    e.Cancel = True

End If

表B的prepareEdit事件

If e.Col.Name = "A" OrElse e.Col.name = "B" Then
    Dim fdr As DataRow = e.Row.DataRow.GetParentRow("表A")
    If fdr IsNot Nothing AndAlso fdr("X") = True Then
        e.Cancel = True
    End If
End If

datarowAdded事件

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

datacochanged事件

If e.DataCol.Name = "A" OrElse e.DataCol.Name = "B" Then
    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
End If

 哦，你把DataRowAdd的代码删除就好，留Datacochanged的。