共19 条记录, 每页显示 10 条, 页签: [1] [2]

标题：控制重复列

1楼

实话实说 发表于：2010/12/9 23:18:00

1 如何禁止[第一列] [第二列] [第三列]完全相同的行(重复行)

2楼

mr725 发表于：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

3楼

lkqing 发表于：2010/12/9 23:40:00

最简单的方法：加一辅助列，将一、二、三列数据合并，再写代码禁止辅助列的重复行。外部数据源，用sql语句判断重复行。

[此贴子已经被作者于2010-12-9 23:54:13编辑过]

4楼

实话实说 发表于：2010/12/9 23:44:00

提示不对. 能否用颜色标识重复行

[此贴子已经被作者于2010-12-9 23:46:21编辑过]

5楼

lkqing 发表于：2010/12/9 23:50:00

以下是引用mr725在2010-12-9 23:38:00的发言：

If n >= 0 And n <> .position Then

        Return "有重复的行!!! "
    Else
        Return "放心吧, 没有重复的行啦!!! "
    End If
End With

数据量不是很大的内部表可以，如果是数据量很大的外部数据源，且数据动态加载的话，有困难。

6楼

mr725 发表于：2010/12/10 0:06:00

以下是引用实话实说在2010-12-9 23:44:00的发言：
提示不对. 能否用颜色标识重复行

[此贴子已经被作者于2010-12-9 23:46:21编辑过]

1、怎么不对呢？
2、 .Position = n '直接定位到重复的行可以吗？

7楼

实话实说 发表于：2010/12/10 0:08:00

我的数据量较大(约1万行),用的外部数据源,而且是从EXCEL表复制来的,难免有重复行,想找出来,否则表的关联有问题,

[此贴子已经被作者于2010-12-10 0:08:09编辑过]

8楼

mr725 发表于：2010/12/10 0:11:00

以下是引用lkqing在2010-12-9 23:50:00的发言：

数据量不是很大的内部表可以，如果是数据量很大的外部数据源，且数据动态加载的话，有困难。

这个用SQLCommand 稍微改造一下即可，不麻烦～

9楼

mr725 发表于：2010/12/10 0:14:00

以下是引用实话实说在2010-12-10 0:08:00的发言：
我的数据量较大(约1万行),用的外部数据源,而且是从EXCEL表复制来的,难免有重复行,想找出来,否则表的关联有问题,

[此贴子已经被作者于2010-12-10 0:08:09编辑过]

既然是复制而来，跟外部数据源有何关系呢？一万行数据也是瞬间的事啊～～～

6楼可以定位到重复的行呀，修改之便是了。。。

[此贴子已经被作者于2010-12-10 0:14:21编辑过]

10楼

实话实说 发表于：2010/12/10 0:19:00

以下是引用mr725在2010-12-10 0:06:00的发言：

1、怎么不对呢？
2、 .Position = n '直接定位到重复的行可以吗？

此主题相关图片如下：snap1.jpg

共19 条记录, 每页显示 10 条, 页签: [1] [2]