主题：关联表子表条件禁止重复

BeforeAddDateRow事件

Dim r As Row = Tables("表A").Current
If r("第二列") = r("第三列") AndAlso r("第三列") = r("第四列") Then
    msgbox("三列不能重复")
    e.cancel = True
End If