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

BeforeAddDateRow事件

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

或者参考

http://www.foxtable.com/webhelp/scr/2481.htm

DataColChanged事件

Select Case e.DataCol.name
    Case "第二列","第三列"
        Dim count As Integer = e.DataTable.compute("count(_Identify)", "第三列 = '" & e.DataRow("第三列") & "' and 第二列 = '" & e.DataRow("第二列") & "'")
        If count > 1 Then
            msgbox("重复了")
        End If
End Select

Select Case e.DataCol.name
    Case "第二列","第三列"
        Dim count As Integer = e.DataTable.compute("count(_Identify)", "第三列 = '" & e.DataRow("第三列") & "' and 第二列 = '" & e.DataRow("第二列") & "'")
        If count > 1 Then
            msgbox("重复了")

            e.DataRow.Delete
        End If
End Select