令人目瞪口呆的效率差别(有修正) - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这个鱼和熊掌不可得兼的经验，收藏！

有一按钮“编号”：自觉效率不高，能优化？

Dim str As String
For Each dr As DataRow In DataTables("申请表").DataRows
    str = "[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别") & "'"
    str = str & "And [单位(个人)] = '" & dr("单位(个人)") & "' And [法定代表人] = '" & dr("法定代表人") & "' And [_Identify] < " & dr("_Identify")
    dr("宗地序号") = Format(Tables("申请表").Compute("Count(乡名)",str)+1,"00")
Next
Tables("申请表").Sort = "法定代表人 DESC" '降序排列

添加到集合再对比，真是高。受用了。

收藏慢慢消化！

以下是引用易服在2010-12-7 13:41:00的发言：

有一按钮“编号”：自觉效率不高，能优化？

可以这么改改看看：

Dim str As String
Dim Dic As New Dictionary(of DataRow, String)
For Each dr As DataRow In DataTables("申请表").DataRows
    str = "[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别") & "'"
    str = str & "And [单位(个人)] = '" & dr("单位(个人)") & "' And [法定代表人] = '" & dr("法定代表人") & "' And [_Identify] < " & dr("_Identify")
    dic.Add(dr,Format(DataTables("申请表").Compute("Count(乡名)",str)+1,"00"))
Next
For dr As DataRow In dic.Keys
    dr("宗地序号") = dic(dr)
Next

以下是引用狐狸爸爸在2010-12-7 14:35:00的发言：

可以这么改改看看：

此主题相关图片如下：2010-12-7 14-42-11.png

这都看不出来吗，我手误而已，应该是：

For Each dr As DataRow In dic.keys

狐狸爸爸	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00	令人目瞪口呆的效率差别(有修正) Post By：2010/12/7 12:36:00 [只看该作者] 您无权查看精华帖子
	[本帖被加为精华]

hnaysx	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：婴狐帖子：44 积分：903 威望：0 精华：0 注册：2010/9/17 21:54:00	Post By：2010/12/7 12:56:00 [只看该作者] 用户已被锁定

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