- 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=8811)
-- 发布时间：2010/12/9 23:18:00
-- 控制重复列
1 如何禁止[第一列] [第二列] [第三列]完全相同的行(重复行)
-- 发布时间：2010/12/9 23:38:00
--
With CurrentTable
Dim r As Row = .current
Dim n As Integer
n = .FindRow("[第一列] = \'" & r("第一列") & "\' and [第二列] = \'" & r("第二列") & _
"\' And [第三列] = \'" & r("第三列") & "\' ", .Position + 2, True )
If n >= 0 And n <> .position Then
Return "有重复的行!!! "
Else
Return "放心吧, 没有重复的行啦!!! "
End If
End With
-- 发布时间：2010/12/9 23:40:00
--
最简单的方法：加一辅助列，将一、二、三列数据合并，再写代码禁止辅助列的重复行。外部数据源，用sql语句判断重复行。
-- 发布时间：2010/12/9 23:44:00
--
提示不对. 能否用颜色标识重复行
-- 发布时间：2010/12/9 23:50:00
--
With CurrentTable
Dim r As Row = .current
Dim n As Integer
n = .FindRow("[第一列] = \'" & r("第一列") & "\' and [第二列] = \'" & r("第二列") & _
"\' And [第三列] = \'" & r("第三列") & "\' ", .Position + 2, True )
If n >= 0 And n <> .position Then
Return "有重复的行!!! "
Else
Return "放心吧, 没有重复的行啦!!! "
End If
End With
数据量不是很大的内部表可以，如果是数据量很大的外部数据源，且数据动态加载的话，有困难。
-- 发布时间：2010/12/10 0:06:00
--
提示不对. 能否用颜色标识重复行
1、怎么不对呢？
2、 .Position = n \'直接定位到重复的行可以吗？
-- 发布时间：2010/12/10 0:08:00
--
我的数据量较大(约1万行),用的外部数据源,而且是从EXCEL表复制来的,难免有重复行,想找出来,否则表的关联有问题,
-- 发布时间：2010/12/10 0:11:00
--
数据量不是很大的内部表可以，如果是数据量很大的外部数据源，且数据动态加载的话，有困难。
这个用SQLCommand 稍微改造一下即可，不麻烦～
-- 发布时间：2010/12/10 0:14:00
--
我的数据量较大(约1万行),用的外部数据源,而且是从EXCEL表复制来的,难免有重复行,想找出来,否则表的关联有问题,
既然是复制而来，跟外部数据源有何关系呢？ 一万行数据也是瞬间的事啊～～～
6楼可以定位到重复的行呀，修改之便是了。。。
-- 发布时间：2010/12/10 0:19:00
--
1、怎么不对呢？
2、 .Position = n \'直接定位到重复的行可以吗？
此主题相关图片如下：snap1.jpg