- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于记录重复的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44275)
-- 发布时间：2013/12/26 21:49:00
-- [求助]关于记录重复的问题
有一个表，字段为A B C，要保证任意两条记录不重复（A字段除外），不仅仅是table中的记录不重复，而且要保证datatable的记录也不重复，如何写事件？
此主题相关图片如下：qq截图20131226214718.png
此主题相关图片如下：qq截图20131226214735.png
[此贴子已经被作者于2013-12-26 21:52:23编辑过]
-- 发布时间：2013/12/26 22:05:00
--
编写beforesavedatarow事件，如下代码
Dim arys() As String = {"第二列", "第三列"}
For i As Integer = 0 To arys.Length - 1
Dim count = e.DataTable.Compute("count(_Identify)", arys(i) & " = \'" & e.DataRow(arys(i)) & "\'")
If count > 1 Then
msgbox("第" & Tables(e.DataTable.Name).FindRow(e.DataRow) + 1 & "行重复,不能保存!")
e.Cancel = True
Exit For
End If
Next