以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]如何防止关联表输入重复内容  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=65061)

--  作者：apple333 --  发布时间：2015/3/8 13:31:00 --  [求助]如何防止关联表输入重复内容 上传了一个例子,请教老师不吝赐教,谢谢!想要达到的效果: 在表A选中或新增行添加新的分组后, 点击窗口表的逻辑列(第四列), 将所选列内容输入到关联表(表A.表C),相同的分组禁止输入重复内容.     我例子中的代码只能禁止表C第二列所有行的重复值,新增分组就不能输入了  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.foxdb

--  作者：有点甜 --  发布时间：2015/3/8 14:22:00 --   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

--  作者：apple333 --  发布时间：2015/3/8 15:51:00 --   非常感谢甜版主！