- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 【请教】同一行内a、b、c三列的值，要求禁止任何两者之间重复 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73048)
-- 发布时间：2015/8/11 14:53:00
-- 【请教】同一行内a、b、c三列的值，要求禁止任何两者之间重复
同一行，有a、b、c三列，现在要禁止同一行内，a、b、c三列的值，任何两者之间不能重复，应该怎么设置？
-- 发布时间：2015/8/11 15:03:00
--
DataColChanging事件
Select Case e.DataCol.Name
Case "a", "b", "c"
If e.newValue <> Nothing Then
Dim count As Integer = 0
If e.Newvalue = e.DataRow("a") Then
count += 1
End If
If e.Newvalue = e.DataRow("b") Then
count += 1
End If
If e.Newvalue = e.DataRow("c") Then
count += 1
End If
If count >= 2 Then
msgbox("重复")
e.cancel = true
End If
End If
End Select
-- 发布时间：2015/8/11 16:09:00
--
-- 发布时间：2015/8/11 17:21:00
--
谢谢！
-- 发布时间：2015/8/11 17:40:00
--
-- 发布时间：2015/8/11 17:55:00
--
Select Case e.DataCol.Name
Case "统计员","复核员","监督员"
Dim dr As DataRow = e.DataRow
Dim Str1 As String = "|" & dr("统计员") & "|" & dr("复核员") & "|" & dr("监督员") & "|"
If e.NewValue>"" Then
Dim ary() As String=str1.Replace("|" & e.NewValue & "|","@").split("@")
If ary.length > 1 Then
MessageBox.Show("统计员\\监督员\\复核员不能重复输入!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
dr(e.DataCol.Name)=""
End If
End If
End Select
-- 发布时间：2015/8/11 20:51:00
--
大红袍大哥的代码有bug，呵呵
-- 发布时间：2015/8/11 20:53:00
--
那你就参考2楼的代码去写。
-- 发布时间：2015/8/15 8:18:00
--
还是搞不定，呵呵，能否再求教？
-- 发布时间：2015/8/15 8:57:00
--
第一列、第二列、第三列不能重复，DataColChanging时间：
Select Case e.DataCol.name
Case "第一列","第二列","第三列"
If e.NewValue IsNot Nothing Then
Dim nms() As String = {"第一列","第二列","第三列"}
For Each nm As String In nms
If nm <> e.DataCol.name AndAlso e.NewValue = e.DataRow(nm) Then
e.cancel = True
End If
Next
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目82.table |