我是一个初学者，做了一个小程序，里面有一段防重复输入的程序，在日期中只想用到年月，而不去比较日，就是每月一个姓名只录入一次，请教该如何写这个程序呀？个人认为应该把日期及 XH格式化一下再比较，用到Format("日期","yyyyMM") ，但不知道怎么写这段代码。下面是我写的一段代码，实测好用，但同月换一天就又可以录入了，起不到防重复的作用。
Select Case e.DataCol.name '日期姓名防重复输入验证
Case "日期","姓名"
Dim xh As String
Dim gg As String
If e.DataCol.Name= "日期" Then
xh = e.NewValue
gg = e.DataRow("姓名")
Else
gg = e.NewValue
xh = e.DataRow("日期")
End If
If xh > "" AndAlso gg > "" Then
Dim dr As DataRow = e.DataRow
If e.DataTable.Find("日期 = '" & xh & "' And 姓名 = '" & gg & "'") IsNot Nothing Then
MessageBox.Show("该学员本月已录入完成,不能重复,只能修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
End If
End If
End Select
[此贴子已经被作者于2021/4/6 15:50:56编辑过]
加好友 
发短信
Post By：2021/4/2 17:11:00 [只看该作者]
