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

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

Dim s As Date = Date.Now()
Dim dic As New Dictionary(of DataRow, String)
Dim drs  As List(of DataRow)
For Each dr As DataRow In DataTables("申请表").DataRows
    drs = DataTables("申请表").Select("[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别")  & "'And [单位(个人)] = '" & dr("单位(个人)") & "'And  [法定代表人] = '" & dr("法定代表人") & "'", "[_Identify] Desc")
    For i As Integer = 0 To drs.Count - 1
        If drs(i)("_Identify") < dr("_Identify") Then
            dic.Add(dr,drs.count - i)
            Exit For
        Elseif i = drs.count -1 Then
            dic.add(dr,0)
        End If
    Next
Next
For Each dr As DataRow In dic.Keys
    dr("宗地序号") = dic(dr)
Next
Tables("申请表").Sort = "法定代表人 DESC" '降序排列
Output.show((Date.Now -s).TotalSeconds)
只可惜从“0”开始，从“1”开始就完美了

 

呵呵，代码是你写的，要从1开始还不容易吗：

 

Dim dic As New Dictionary(of DataRow, String)
Dim drs  As List(of DataRow)
For Each dr As DataRow In DataTables("申请表").DataRows
    drs = DataTables("申请表").Select("[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别")  & "'And [单位(个人)] = '" & dr("单位(个人)") & "'And  [法定代表人] = '" & dr("法定代表人") & "'", "[_Identify] Desc")
    For i As Integer = 0 To drs.Count - 1
        If drs(i)("_Identify") < dr("_Identify") Then
            dic.Add(dr,drs.count - i)
            Exit For
        Elseif i = drs.count -1 Then
            dic.add(dr,0)
        End If
    Next
Next
For Each dr As DataRow In dic.Keys
    dr("宗地序号") = dic(dr) + 1
Next

 

也可以：

 

Dim dic As New Dictionary(of DataRow, String)
Dim drs  As List(of DataRow)
For Each dr As DataRow In DataTables("申请表").DataRows
    drs = DataTables("申请表").Select("[乡名] = '" & dr("乡名") & "'And [村名] = '" & dr("村名") & "' And [组别] = '" & dr("组别")  & "'And [单位(个人)] = '" & dr("单位(个人)") & "'And  [法定代表人] = '" & dr("法定代表人") & "'", "[_Identify] Desc")
    For i As Integer = 0 To drs.Count - 1
        If drs(i)("_Identify") <= dr("_Identify") Then
            dic.Add(dr,drs.count - i)
            Exit For
        Elseif i = drs.count -1 Then
            dic.add(dr,0)
        End If
    Next
Next
For Each dr As DataRow In dic.Keys
    dr("宗地序号") = dic(dr)
Next

 

关键要理解代码，否则会很被动，不是玩代码，而是被代码玩。

.........

dr("宗地序号") = Format(dic(dr)+1,"00")

.........

不能用“<=”只能用“<”,否则宗地序号从“2”开始

用<=的话，后面就不用加1的

试过了，宗地序号列全为“0”。不用Format是可以的