主题：如何实现以下的目的，谢谢

不就是判断其它各表是否存在对应的行，如果存在，就取消编辑和删除吗？

设置补偿标准表的PrepareEdit事件代码：

Dim nms() As String = {"土地补偿","房屋补偿"}
For Each nm As String In nms
    For Each c As col  In Tables(nm).cols
        If c.name.StartsWith(e.Row("补偿物名")) Then
            e.cancel = True
        End If
    Next
Next

BeforeDeleteDatarow事件代码自己设计。

8楼的代码无需你另外增加一个逻辑列，会自动判断。

如果要自动打勾：

For Each dr As DataRow In DataTables("补偿标准表").dataRows
    Dim nms() As String = {"土地补偿","房屋补偿"}
    For Each nm As String In nms
        For Each c As col  In Tables(nm).cols
            If c.name.StartsWith(dr("补偿物名")) Then
                dr("使用情况")  = True
                Exit For
            End If
        Next
        If dr("使用情况")  = True Then
            Exit For
        End If
    Next
Next