主题：令人目瞪口呆的效率差别(有修正)

呵呵，不用了，懒得转来转去

支持····

哪来的高手，只是一个条件嘛，照葫芦画瓢，测试了这个Update {表A} Set 第三列 = True 后，加上条件就ok了。

比如筛选第一列和第二列重复的记录并在第三列勾选上：

Dim cmd As New SQLCommand

cmd.CommandText = "Update {表A} Set 第三列 = True Where {表A}.第一列 = {表A}.第二列"
cmd.ExecuteNonQuery  
DataTables("表A").load(False)
'Application.DoEvents()
Tables("表A").Filter = "第三列 = True"

---

 

呵呵，你这个和我的不同，你这个是找出第一列和第二相同的行，我那个是标出第一列和第二列都有的行。

此主题相关图片如下：2010-12-13 9-45-29.png

同样是12740行原代码120多秒，现只需25.734375秒，但不是我要结果。我要的结果是同一法定代表人的宗地排在一起按升序排列，一般法定代表人的宗地数最多不会超过50块。

顶

我不懂你这个项目的，我只是就mr725提供的示例数据和代码进行优化测试。

如果结果能够出来，自己排序不就行了吗？

8楼代码结果是正确的，12740行8楼代码120多秒，现只需25.734375秒，但结果不正确。宗地序号列最多不会大于50，而现在有2000多，排序只要加上 Tables("申请表").Sort = "法定代表人 DESC" '降序排列

sql 中bit字段值好像不能用true,false吧？

 

你完全可以参照48楼的代码来改写8楼的代码。

 

如果不能理解48楼的代码，可以看看这个帖子：

 

http://www.foxtable.com/dispbbs.asp?boardid=2&Id=8805&page=2

 

实在搞不定，再单独发帖提问。