[已解决]不放回抽取

张雄友

grf1973 发表于 2015-10-21 08:57
有重复的也不会出错的，不过重复的内容如果提取过一次，其他所有重复内容不会被再提取。

有重复会出错的39楼就是试过了！

grf1973

有可能是个数问题出错了，名为60000个，可实际只有59995个，筛选最后5个会出错。解决方法是去重后放入arr。

张雄友

grf1973 发表于 2015-10-21 15:47
有可能是个数问题出错了，名为60000个，可实际只有59995个，筛选最后5个会出错。解决方法是去重后放入arr。

去重后放入arr是什么意思？为什么强制多条件判断这样不行的？怎么办？恳请明示。

            If Not d.Exists(arr(i, 1) & arr(i, 2) & arr(i, 3) & arr(i, 4) & arr(i, 5)) Then
            d(arr(i, 1) & arr(i, 2) & arr(i, 3) & arr(i, 4) & arr(i, 5)) = kk
                          kk = kk + 1
                arr(kk, 1) = arr(i, 1)
                arr(kk, 2) = arr(i, 2)
                arr(kk, 3) = arr(i, 3)
                arr(kk, 4) = arr(i, 4)
                arr(kk, 5) = arr(i, 5)

grf1973

知道你的意思了。你自己要搞清楚，到底哪一列，或哪几列合并可以作为判断记录不会重复的唯一主键。
附件是按上楼意思，取所有列合并作为主键的。代码自己好好看吧。