主题：[求助]如何防止关联表输入重复内容

上传了一个例子,请教老师不吝赐教,谢谢!想要达到的效果: 在表A选中或新增行添加新的分组后, 点击窗口表的逻辑列(第四列), 将所选列内容输入到关联表(表A.表C),相同的分组禁止输入重复内容.     我例子中的代码只能禁止表C第二列所有行的重复值,新增分组就不能输入了

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

点击浏览该文件:管理项目1.foxdb

Select Case e.DataCol.Name
    Case "第四列"
        Dim dr1 As DataRow = e.DataRow
        Dim dr As DataRow
        dr = DataTables("表C").Find("[第二列] = '" & dr1("第二列") & "' and 第一列 = '" & Tables("表A").Current("组别") & "'")
        If dr IsNot Nothing Then
            MessageBox.Show("已存在!")
        Else
            Dim dr2 As Row =Tables("表A.表C").Rows.AddNew
            dr2("第二列")=dr1("第二列")
        End If
End Select

非常感谢甜版主！