专家坐堂-不允许输入相同的数据行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  不允许输入相同的数据行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128760)

--  作者：edisontsui
--  发布时间：2018/12/14 13:13:00
--  不允许输入相同的数据行

Select Case e.DataCol.name
Case "年月"
If e.NewValue > “” AndAlso e.DataRow.IsNull("姓名") = False
Dim dr As DataRow = e.DataRow
If e.DataTable.Find("年月 = \'" & e.NewValue & "\' And 姓名 =" & dr("姓名")) IsNot Nothing Then
MessageBox.Show("已经存在相同年月和姓名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
Case "姓名"
If e.DataRow.IsNull("姓名") = False AndAlso e.DataRow.IsNull("年月") = False
Dim dr As DataRow = e.DataRow
If e.DataTable.Find("年月 = \'" & dr("年月") & "\' And 姓名 = " & e.NewValue ) IsNot Nothing Then
MessageBox.Show("已经存在相同年月和姓名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End Select

上面的代码是不允许输入相同的数据行的，但是放在datacolchanging 里面不起作用。为什么？

--  作者：有点甜
--  发布时间：2018/12/14 13:39:00
--

Select Case e.DataCol.name

Case "年月"

If e.NewValue <> nothing AndAlso e.DataRow.IsNull("姓名") = False

Dim dr As DataRow = e.DataRow

If e.DataTable.Find("年月 = \'" & e.NewValue & "\' And 姓名 = \'" & dr("姓名") & "\'") IsNot Nothing Then

MessageBox.Show("已经存在相同年月和姓名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

End If

End If

Case "姓名"

If e.newvalue <> nothing AndAlso e.DataRow.IsNull("年月") = False

Dim dr As DataRow = e.DataRow

If e.DataTable.Find("年月 = \'" & dr("年月") & "\' And 姓名 = \'" & e.NewValue & "\'") IsNot Nothing Then

MessageBox.Show("已经存在相同年月和姓名的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

e.Cancel = True

End If

End If

End Select

--  作者：edisontsui
--  发布时间：2018/12/14 17:00:00
--
谢谢。