以文本方式查看主题

-  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=15991)

--  作者:pc005637
--  发布时间:2012/1/29 0:33:00
--  当为关联子表时,如何禁止某非关联列不能输入重复值。

"A表"(为父表)和"B表"(为子表)单向关联。

希望在关联表"A表.B表"中的,"交租月份"列(字符列),内容不能重复(为空白时可以),但在"B表"为MainTable时可以重复。

应该如何设置代码?

谢谢指点。

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

[此贴子已经被作者于2012-1-29 0:34:28编辑过]

--  作者:狐狸爸爸
--  发布时间:2012/1/29 12:10:00
--  

设置表B的DataColChanging事件:

 

Select Case  e.DataCol.Name
    Case "租户编号","交租月份"
    Dim dr As DataRow
    dr = e.DataTable.Find("租户编号 = \'" & e.DataRow("租户编号") & "\' And 交租月份 = \'" & e.DataRow("交租月份") & "\'")
    If dr IsNot Nothing Then
        MessageBox.Show("存在重复月份")
        e.Cancel = True
    End If
End Select


--  作者:pc005637
--  发布时间:2012/1/29 13:01:00
--  谢谢指点
谢谢指点